@@ -56,11 +56,6 @@ data Result r = Fail Text [String] String
5656 -- the parse succeeded.
5757 deriving (Show)
5858
59−instance Show r => Show (Result r) where
60− show (Fail bs stk msg) =
61− "Fail " ++ show bs ++ " " ++ show stk ++ " " ++ show msg
62− show (Done bs r) = "Done " ++ show bs ++ " " ++ show r
63−
6459instance NFData r => NFData (Result r) where
6560 rnf (Fail bs ctxs msg) = rnf bs `seq` rnf ctxs `seq` rnf msg
6661 rnf (Done bs r) = rnf bs `seq` rnf r