diff --git a/src/GypsFulvus.hs b/src/GypsFulvus.hs
index 1e15058..a3a96d7 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