diff options
| author | Akshay <[email protected]> | 2020-10-12 06:56:57 +0100 |
|---|---|---|
| committer | Akshay <[email protected]> | 2020-10-12 06:56:57 +0100 |
| commit | c5d07ee83d1522b5ee9753d379dc1daf09600c08 (patch) | |
| tree | e99b76152f01a89f3fdfa81c7ef515a4ad64d166 /bin | |
| parent | 2d9320bf71912b2c682c15a8933031394de40936 (diff) | |
parse signed ints and floats correctly
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/Main.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/bin/Main.hs b/bin/Main.hs index 7bb6d84..a088fdb 100644 --- a/bin/Main.hs +++ b/bin/Main.hs | |||
| @@ -26,8 +26,7 @@ repl = do | |||
| 26 | Just ",q" -> return () | 26 | Just ",q" -> return () |
| 27 | Just line -> do | 27 | Just line -> do |
| 28 | addHistory line | 28 | addHistory line |
| 29 | -- TODO: don't directly print Either values | 29 | putStrLn $ either show show $ eval =<< readExpr line |
| 30 | print $ eval =<< readExpr line | ||
| 31 | repl | 30 | repl |
| 32 | 31 | ||
| 33 | main :: IO () | 32 | main :: IO () |