shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Fix bug in eol

--- a/src/System/Console/SimpleReadline.hs

+++ b/src/System/Console/SimpleReadline.hs

@@ -81,7 +81,7 @@

       loop hist "" (reverse before ++ after)

     eol = do

       putStr after

-      loop hist (before ++ reverse after) ""

+      loop hist (reverse after ++ before) ""

     bs = do

       case before of

         [] -> noop

-- 

⑨