@@ -71,8 +71,8 @@ instance (Show i, Show r) => Show (IResult i r) where
7171 case ir of
7272 (Fail t stk msg) -> showString "Fail" . f t . f stk . f msg
7373 (Partial _) -> showString "Partial _"
74− (Done t r) -> showString "Done" . f t . f r
75− where f x = showChar ' ' . showsPrec 11 x
74+ (Done t r) -> showString "Done" . f t . f r
75+ where f x = showChar ' ' . 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