mark error point with underscore and caret
commitc0c754926e1f89dff3f1d9435e95bf7b470eb8f3
authorAgentM <agentm@themactionfaction.com>
dateSun 6 Nov 2016, 19:35 (10 years ago)
parentd0ed854
src/bin/TutorialD/Interpreter/Base.hs+1−1
@@ -27,7 +27,7 @@ displayOpResult QuietSuccessResult = return ()
2727displayOpResult (DisplayRelationResult rel) = TIO.putStrLn (showRelation rel)
2828displayOpResult (DisplayParseErrorResult promptLength err) = TIO.putStrLn pointyString >> TIO.putStrLn ("ERR:" <> T.pack (show err))
2929 where
30− pointyString = T.justifyRight (promptLength + (sourceColumn (errorPos err))) ' ' "^"
30+ pointyString = T.justifyRight (promptLength + (sourceColumn (errorPos err))) '_' "^"
3131
3232spaceConsumer :: Parser ()
3333spaceConsumer = Lex.space (void spaceChar) (Lex.skipLineComment "--") (Lex.skipBlockComment "{-" "-}")