diff --git a/System/Console/Haskeline/Internal.hs b/System/Console/Haskeline/Internal.hs
index 48fb16b9..3abd6b16 100644
--- a/System/Console/Haskeline/Internal.hs
+++ b/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
 
 -- | This function may be used to debug Haskeline's input.
 --
diff --git a/System/Console/Haskeline/Key.hs b/System/Console/Haskeline/Key.hs
index 4b8dd4ec..21b03f20 100644
--- a/System/Console/Haskeline/Key.hs
+++ b/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