rnhmjoj/hsilop
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove tabs

Browse Source
This commit is contained in:
Rnhmjoj 2015-02-28 00:50:25 +01:00
parent ed5d0a58d3
commit 872d251eca
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
hsilop.hs
View File

@ -9,14 +9,14 @@ import System.Console.Readline
main :: IO () main :: IO ()
main = do main = do
line <- readline "ꟼ " line <- readline "ꟼ "
case fromMaybe "" line of case fromMaybe "" line of
"" -> main "" -> main
"q" -> return () "q" -> return ()
exp -> do exp -> do
putStrLn $ result (rpn exp) ++ "\n" putStrLn $ result (rpn exp) ++ "\n"
addHistory exp addHistory exp
main main
-- Pretty print RPN result/errors -- Pretty print RPN result/errors