Expose internals (#121)

Author: typedrat

System/Console/Haskeline/Internal.hs

@@ -1,5 +1,10 @@
 module System.Console.Haskeline.Internal
-    ( debugTerminalKeys ) where
+    ( module System.Console.Haskeline.Monads
+    , module System.Console.Haskeline.Term
+    , module System.Console.Haskeline.Key
+    , module System.Console.Haskeline.LineState
+    , Behavior (..)
+    , debugTerminalKeys ) where
 
 import System.Console.Haskeline (defaultSettings, outputStrLn)
 import System.Console.Haskeline.Command
@@ -8,6 +13,7 @@ import System.Console.Haskeline.LineState
 import System.Console.Haskeline.Monads
 import System.Console.Haskeline.RunCommand
 import System.Console.Haskeline.Term
+import System.Console.Haskeline.Key
 
 import Control.Monad ((>=>))
 

System/Console/Haskeline/Key.hs

@@ -8,7 +8,8 @@ module System.Console.Haskeline.Key(Key(..),
             ctrlChar,
             metaKey,
             ctrlKey,
-            parseKey
+            parseKey,
+            setControlBits
             ) where
 
 import Data.Bits