git.iko.soy/project-m36
on master help sign in
mark error point with underscore and caret
c0c7549AgentM
src/bin/TutorialD/Interpreter/Base.hs+1−1
compare with master
unifiedsplit
@@ -27,7 +27,7 @@ displayOpResult QuietSuccessResult = return ()
27displayOpResult (DisplayRelationResult rel) = TIO.putStrLn (showRelation rel)
27displayOpResult (DisplayRelationResult rel) = TIO.putStrLn (showRelation rel)
28displayOpResult (DisplayParseErrorResult promptLength err) = TIO.putStrLn pointyString >> TIO.putStrLn ("ERR:" <> T.pack (show err))
28displayOpResult (DisplayParseErrorResult promptLength err) = TIO.putStrLn pointyString >> TIO.putStrLn ("ERR:" <> T.pack (show err))
29 where
29 where
30− pointyString = T.justifyRight (promptLength + (sourceColumn (errorPos err))) ' ' "^"
30+ pointyString = T.justifyRight (promptLength + (sourceColumn (errorPos err))) '_' "^"
31
31
32spaceConsumer :: Parser ()
32spaceConsumer :: Parser ()
33spaceConsumer = Lex.space (void spaceChar) (Lex.skipLineComment "--") (Lex.skipBlockComment "{-" "-}")
33spaceConsumer = Lex.space (void spaceChar) (Lex.skipLineComment "--") (Lex.skipBlockComment "{-" "-}")