@@ -72,7 +72,7 @@ instance (Show i, Show r) => Show (IResult i r) where
7272 (Fail t stk msg) -> showString "Fail" . f t . f stk . f msg
7373 (Partial _) -> showString "Partial _"
7474 (Done t r) -> showString "Done" . f t . f r
75− where f s = showString " " . showsPrec 11 s
75+ where f x = showString " " . showsPrec 11 x
7676
7777instance (NFData i, NFData r) => NFData (IResult i r) where
7878 rnf (Fail t stk msg) = rnf t `seq` rnf stk `seq` rnf msg