Report source name in error instead of "TODO"

avh4 · Jul 13, 2021 · bc58b34 · bc58b34
1 parent 4b490d4
commit bc58b34
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/elm-format-lib/src/Parse/ParsecAdapter.hs b/elm-format-lib/src/Parse/ParsecAdapter.hs
@@ -111,8 +111,8 @@ unknownError row col =
 
 unexpected :: String -> Parser a
 unexpected msg =
-  EP.Parser $ \(EP.State _ _ _ _ row col _ _) _ _ _ eerr ->
-      eerr row col (newErrorMessage (UnExpect msg) "TODO")
+  EP.Parser $ \(EP.State _ _ _ _ row col sourceName _) _ _ _ eerr ->
+      eerr row col (newErrorMessage (UnExpect msg) sourceName)
 
 
 type Parser a = EP.Parser ParseError a