From 62f9cd155ac748ec6acb9d39d282f5a4c87844fc Mon Sep 17 00:00:00 2001 From: Jon Doe Date: Mon, 14 Sep 2020 17:10:08 +0200 Subject: [PATCH] export InitStatus --- src/GypsFulvus.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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