Permalink
Browse files

Fix up a Show instance.

  • Loading branch information...
bos committed Mar 5, 2010
1 parent 3c6880a commit 2f7f1b5229f0d17e3c20bebe1fdee0d6d217c19c
Showing with 4 additions and 3 deletions.
  1. +4 −3 Data/Attoparsec.hs
View
@@ -63,9 +63,10 @@ data Result r = Fail !B.ByteString [String] String
| Done !B.ByteString r
instance Show r => Show (Result r) where
- show (Fail bs stk msg) = "Fail " ++ show bs ++ show stk ++ " " ++ show msg
- show (Partial _) = "Partial _"
- show (Done bs r) = "Done " ++ show bs ++ " " ++ show r
+ show (Fail bs stk msg) =
+ "Fail " ++ show bs ++ " " ++ show stk ++ " " ++ show msg
+ show (Partial _) = "Partial _"
+ show (Done bs r) = "Done " ++ show bs ++ " " ++ show r
feed :: Result r -> B.ByteString -> Result r
feed f@(Fail _ _ _) _ = f

0 comments on commit 2f7f1b5

Please sign in to comment.