add timeout for getBlockOfChars

- fixes issue haskell#160 and maybe issue haskell#77.
- 20ms delay worked well for 9600bps serial port, 10ms did not.

Author: goertzenator

System/Console/Haskeline/Backend/Posix.hsc

@@ -25,6 +25,9 @@ import Control.Monad
 import Control.Monad.Catch (MonadMask, handle, finally)
 import Control.Concurrent.STM
 import Control.Concurrent hiding (throwTo)
+import Control.Concurrent.Async (runConcurrently, Concurrently(..))
+import Control.Applicative ((<|>))
+import Data.Functor (($>))
 import Data.Maybe (catMaybes)
 import System.Posix.Signals.Exts
 import System.Posix.Types(Fd(..))
@@ -244,21 +247,33 @@ getEvent h baseMap = keyEventLoop $ do
         return [KeyInput $ lexKeys baseMap cs]
 
 -- Read at least one character of input, and more if immediately
--- available.  In particular the characters making up a control sequence
--- will all be available at once, so they can be processed together
--- (with Posix.lexKeys).
+-- available.  If an ESC character is seen, timeout mode is
+-- activated to prevent control sequences from being broken across
+-- getBlockofChars calls.  A timeout of 20ms was shown to work
+-- well with a 9600bps serial port.
 getBlockOfChars :: Handle -> IO String
 getBlockOfChars h = do
     c <- hGetChar h
-    loop [c]
-  where
-    loop cs = do
-        isReady <- hReady h
-        if not isReady
-            then return $ reverse cs
-            else do
-                    c <- hGetChar h
-                    loop (c:cs)
+    loop c [] False
+    where
+    loop :: Char -> String -> Bool -> IO String
+    loop c' cs' timeout' = do
+        let
+            timeout = timeout' || (c' == '\ESC')
+            cs = (c':cs')
+        maybeC <- do
+            isReady <- hReady h
+            case (timeout, isReady) of
+                (_, True) -> do -- fast new character case
+                    Just <$> hGetChar h
+                (True, False) -> -- wait up to 20ms for next char
+                    runConcurrently $ Concurrently (Just <$> hGetChar h)
+                                  <|> Concurrently (threadDelay 20000 $> Nothing)
+                (False, False) -> -- no new char and timeout mode has not been triggered
+                    pure Nothing
+        case maybeC of
+            Just c -> loop c cs timeout
+            Nothing -> pure $ reverse cs
 
 stdinTTYHandles, ttyHandles :: MaybeT IO Handles
 stdinTTYHandles = do

haskeline.cabal

@@ -61,7 +61,6 @@ flag examples
     Manual: True
 
 Library
-<<<<<<< HEAD
     Build-depends:
         base         >= 4.9 && < 4.21
       , containers   >= 0.4 && < 0.8
@@ -72,16 +71,6 @@ Library
       , process      >= 1.0 && < 1.7
       , stm          >= 2.4 && < 2.6
       , exceptions   == 0.10.*
-=======
-    -- We require ghc>=7.4.1 (base>=4.5) to use the base library encodings, even
-    -- though it was implemented in earlier releases, due to GHC bug #5436 which
-    -- wasn't fixed until 7.4.1
-    Build-depends: base >=4.9 && < 4.19, containers>=0.4 && < 0.7,
-                   directory>=1.1 && < 1.4, bytestring>=0.9 && < 0.12,
-                   filepath >= 1.2 && < 1.5, transformers >= 0.2 && < 0.7,
-                   process >= 1.0 && < 1.7, stm >= 2.4 && < 2.6,
-                   exceptions == 0.10.*
->>>>>>> c689b89 (Allow transformers-0.6)
     Default-Language: Haskell98
     Default-Extensions:
                 ForeignFunctionInterface, Rank2Types, FlexibleInstances,
@@ -180,4 +169,4 @@ Executable haskeline-examples-Test
     Build-depends: base, containers, haskeline
     Default-Language: Haskell2010
     hs-source-dirs: examples
-    Main-Is: Test.hs
+    Main-Is: Test.hs