patrickaldis/garnet
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Show parse errors

Browse Source
This commit is contained in:
George Thomas 2025-12-02 10:45:45 +00:00
parent 9ca3840d5f
commit 72b0132058
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/Main.hs
View File

@ -36,7 +36,7 @@ puzzleTest p =
BL.fromStrict . encodeUtf8 . pp.solve <$> input BL.fromStrict . encodeUtf8 . pp.solve <$> input
where where
pt = show p.number pt = show p.number
parseFile fp = maybe (fail "parse failure") pure . parseMaybe (p.parser <* eof) =<< T.readFile fp parseFile fp = either (fail . ("parse failure: " <>) . errorBundlePretty) pure . runParser (p.parser <* eof) fp =<< T.readFile fp
data Puzzle input = Puzzle data Puzzle input = Puzzle
{ number :: Word { number :: Word