diff --git a/src/GypsFulvus.hs b/src/GypsFulvus.hs
index 2c7c34b..1e15058 100644
--- a/src/GypsFulvus.hs
+++ b/src/GypsFulvus.hs
@@ -1,4 +1,4 @@
-module GypsFulvus(execMain, Manhole, Sewage) where
+module GypsFulvus(execMain, Manhole, Sewage, Initstatus) where
 import Control.Concurrent.STM (atomically, retry)
 import Control.Concurrent.STM.TMVar
 import Control.Concurrent.STM.TChan