Merge pull request #126 from mpilgrem/fix88

Fix #130 Don't skip "\ESC...\STX" sequences (when terminal-style)

Author: athas

Changelog

@@ -1,3 +1,10 @@
+Changed in version UNRELEASED:
+
+   * On Windows, when terminal-style and printing output, no longer skips
+     `"\ESC...\STX"` sequences. (If used with legacy ConHost directly (for
+     example, `conhost.exe cmd.exe`), it will require ConHost's ANSI-capability
+     to be enabled separately.) (#126)
+
 Changed in version 0.8.4.0:
 
    * Added `System.Console.Haskeline.ReaderT` module for `ReaderT` interface.

System/Console/Haskeline/Backend/Win32.hsc

@@ -381,9 +381,7 @@ crlf :: String
 crlf = "\r\n"
 
 instance (MonadMask m, MonadIO m, MonadReader Layout m) => Term (Draw m) where
-    drawLineDiff (xs1,ys1) (xs2,ys2) = let
-        fixEsc = filter ((/= '\ESC') . baseChar)
-        in drawLineDiffWin (fixEsc xs1, fixEsc ys1) (fixEsc xs2, fixEsc ys2)
+    drawLineDiff = drawLineDiffWin
     -- TODO now that we capture resize events.
     -- first, looks like the cursor stays on the same line but jumps
     -- to the beginning if cut off.