vegowotenks/hc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

whitespace tolerance

Browse source
This commit is contained in:
vegowotenks 2024-09-16 21:29:06 +02:00
parent 5bc54cd13a
commit cfc774ae56
2 changed files with 18 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

6
app/Main.hs
View file

@ -1,8 +1,6 @@
module Main (main) where
import Text.Parsec
import Lib (exprparser, evaluate, replaceVars, Expr, extractVariableDefinitions, updateVariables)
import Lib (exprparser, evaluate, replaceVars, Expr, extractVariableDefinitions, updateVariables, parseFullString)
import Data.Map (Map)
import qualified Data.Map as Map
@ -32,7 +30,7 @@ ioLoop vs = do done <- isEOF
if done
then putStrLn "Quit!"
else do inp <- getLine
let expr_res = parse exprparser "<stdin>" inp
let expr_res = parseFullString inp
case expr_res of
Left err -> do
putStrLn . show $ err