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