diff --git a/src/GypsFulvus.hs b/src/GypsFulvus.hs
index a3a96d7..e4143a1 100644
--- a/src/GypsFulvus.hs
+++ b/src/GypsFulvus.hs
@@ -1,4 +1,4 @@
-module GypsFulvus(execMain, Manhole, Sewage, InitStatus) where
+module GypsFulvus(execMain, Manhole, Sewage, InitStatus(..)) where
 import Control.Concurrent.STM (atomically, retry)
 import Control.Concurrent.STM.TMVar
 import Control.Concurrent.STM.TChan
diff --git a/src/GypsFulvus/PluginStuff.hs b/src/GypsFulvus/PluginStuff.hs
index 61d7be5..bbdac3a 100644
--- a/src/GypsFulvus/PluginStuff.hs
+++ b/src/GypsFulvus/PluginStuff.hs
@@ -1,4 +1,4 @@
-module GypsFulvus.PluginStuff(loadCommsPlugins, Sewage, Manhole, InitStatus) where
+module GypsFulvus.PluginStuff(loadCommsPlugins, Sewage, Manhole, InitStatus(..)) where
 import Control.Monad
 import System.Directory
 import System.Plugins.Make