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 = do
line <- readline "ꟼ "
case fromMaybe "" line of
"" -> main
"q" -> return ()
exp -> do
putStrLn $ result (rpn exp) ++ "\n"
addHistory exp
main
line <- readline "ꟼ "
case fromMaybe "" line of
"" -> main
"q" -> return ()
exp -> do
putStrLn $ result (rpn exp) ++ "\n"
addHistory exp
main
-- Pretty print RPN result/errors