Remove some nonsense from the pnmfile output parser

ddssff · Aug 12, 2018 · 1c4a675 · 1c4a675
1 parent d22e1cc
commit 1c4a675
Showing 1 changed file with 0 additions and 8 deletions.
diff --git a/Appraisal/Image.hs b/Appraisal/Image.hs
@@ -417,14 +417,6 @@ validateJPG path = do
 -- its C source code.)
 parsePnmfileOutput :: Parsec String () Pnmfile
 parsePnmfileOutput = do
-  r <- go'
-  case r of
-    [x] -> return x
-    [] -> fail "parsePnmfileOutput"
-    _xs -> fail "multi"
-  where
-    go' = catMaybes <$> many ((Just <$> go) <|> (const Nothing <$> anyChar))
-    go = do
       _ <- char 'P'
       format <- (\c -> case c of
                          'B' -> Binary