@@ -29,20 +29,6 @@ import Control.DeepSeq
29import Network.Socket (PortNumber)
29import Network.Socket (PortNumber)
31-- These types don't have Generic instances
31-- These types don't have Generic instances
32−instance NFData CT.Options where
33− rnf (CT.Options x1 x2 x3 x4) = rnf x1 `seq` rnf x2 `seq` rnf x3 `seq` rnf x4 `seq` ()
35−instance NFData CT.ListType where
36− rnf (CT.Bullet c) = rnf c `seq` ()
37− rnf (CT.Numbered nw i) = rnf nw `seq` rnf i `seq` ()
39−instance NFData CT.CodeAttr where
40− rnf (CT.CodeAttr a b) = rnf a `seq` rnf b `seq` ()
42−instance NFData CT.NumWrapper where
43− rnf CT.PeriodFollowing = ()
44− rnf CT.ParenFollowing = ()
46instance NFData DynamicLib where
32instance NFData DynamicLib where
47 rnf (Lib x _) = rnf x `seq` ()
33 rnf (Lib x _) = rnf x `seq` ()