Print message about loaded syntax defs to stderr.

Closes #36.
jgm · Feb 5, 2018 · fdf966e · fdf966e
1 parent 414a735
commit fdf966e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/bin/main.hs b/bin/main.hs
@@ -162,7 +162,8 @@ extractDefinitions (Definition fp : xs) = do
   case res of
        Left e -> err e
        Right s -> do
-         putStrLn $ "Loaded syntax definition for " ++ Text.unpack (sName s)
+         hPutStrLn stderr $
+           "Loaded syntax definition for " ++ Text.unpack (sName s)
          (s:) <$> extractDefinitions xs
 extractDefinitions (_:xs) = extractDefinitions xs