cdparks

diff --git a/rts/Compact.cmm b/rts/Compact.cmm
index 72ad4dd437..a4b2d9b2ef 100644
--- a/rts/Compact.cmm
+++ b/rts/Compact.cmm
@@ -121,17 +121,49 @@ eval:
     }
 
     // We shouldn't see any functions, if this data structure was NFData.
+
+    case

cdparks

import Data.Char (ord)

main = print $ rot13 "unccl oveguqnl, funqra!"
  where
    rot13   = foldr replace []
    alpha   = ['a'..'z']
    index x = (ord x - ord 'a' + 13) `mod` 26
    replace x xs
        | x `elem` alpha = alpha !! index x:xs
        | otherwise      = x:xs

cdparks

{-# LANGUAGE DeriveGeneric #-}

module Main where

import Control.DeepSeq
import Control.DeepSeq.Generics (genericRnf)
import GHC.Generics

data List a = Nil | Cons a (List a) deriving (Generic)

cdparks

data Point2D = Point2D { x :: Double, y :: Double }

p = Point2D { x = 1 }
--  Point2D (D# 1.0) (recConError "x.hs:3:5-21|y"#)

main = do
    print (x p)
    print (y p) -- BOOM