Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix up a Show instance.

  • Loading branch information...
commit 2f7f1b5229f0d17e3c20bebe1fdee0d6d217c19c 1 parent 3c6880a
@bos authored
Showing with 4 additions and 3 deletions.
  1. +4 −3 Data/Attoparsec.hs
View
7 Data/Attoparsec.hs
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.