From 872d251eca1ed5211529b36da21b4ef80a9cb36c Mon Sep 17 00:00:00 2001 From: Rnhmjoj Date: Sat, 28 Feb 2015 00:50:25 +0100 Subject: [PATCH] Remove tabs --- hsilop.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/hsilop.hs b/hsilop.hs index 27bc8d7..eb88440 100644 --- a/hsilop.hs +++ b/hsilop.hs @@ -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