From b2795482faaea9cf3097d9ebda0b4593e7eb1f30 Mon Sep 17 00:00:00 2001
From: 5outh <bkovach13@gmail.com>
Date: Mon, 17 Sep 2018 14:32:20 -0400
Subject: [PATCH] Append input path name to UnknownNode errors

---
 src-brittany/Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src-brittany/Main.hs b/src-brittany/Main.hs
index 4581adf..e56bede 100644
--- a/src-brittany/Main.hs
+++ b/src-brittany/Main.hs
@@ -285,6 +285,8 @@ coreIO putErrorLnIO config suppressOutput inputPathM outputPathM =
             return $ Right True
           CPPModeNowarn -> return $ Right True
         else return $ Right False
+    let
+      inputPathName = maybe "stdin" (("file " <>) . show) inputPathM
     (parseResult, originalContents) <- case inputPathM of
       Nothing -> do
         -- TODO: refactor this hack to not be mixed into parsing logic
@@ -382,7 +384,7 @@ coreIO putErrorLnIO config suppressOutput inputPathM outputPathM =
             (ErrorInput str : _) -> do
               putErrorLn $ "ERROR: parse error: " ++ str
             uns@(ErrorUnknownNode{} : _) -> do
-              putErrorLn $ "ERROR: encountered unknown syntactical constructs:"
+              putErrorLn $ "ERROR: encountered unknown syntactical constructs when parsing " <> inputPathName <> ":"
               uns `forM_` \case
                 ErrorUnknownNode str ast -> do
                   putErrorLn str