Use haskeline

hsilop.hs

@@ -5,18 +5,18 @@ import Data.Maybe
 import Text.Read
 import Text.Printf
 import Control.Monad
-import System.Console.Readline
+import System.Console.Haskeline
 
 main :: IO ()
-main = do
+main = runInputT defaultSettings repl
-  line <- readline "ꟼ "
+
+repl :: InputT IO ()
+repl = do
+  line <- getInputLine "ꟼ "
   case fromMaybe "" line of
-    ""  -> main
     "q" -> return ()
-    exp -> do
+    ""  -> outputStrLn "" >> repl
-      putStrLn $ result (rpn exp) ++ "\n"
+    exp -> outputStrLn (result (rpn exp) ++ "\n") >> repl
-      addHistory exp
-      main
 
 
 -- Pretty print RPN result/errors