@@ -75,7 +75,8 @@ instance (Show i, Show r) => Show (IResult i r) where
7575 (Fail t stk msg) -> showString "Fail" . f t . f stk . f msg
7676 (Partial _) -> showString "Partial _"
7777 (Done t r) -> showString "Done" . f t . f r
78− where f x = showChar ' ' . showsPrec 11 x
78+ where f :: Show a => a -> ShowS
79+ f x = showChar ' ' . showsPrec 11 x
7980
8081instance (NFData i, NFData r) => NFData (IResult i r) where
8182 rnf (Fail t stk msg) = rnf t `seq` rnf stk `seq` rnf msg