From 87d14aed6e3aac5d06c03b12c37df8bca373d8e6 Mon Sep 17 00:00:00 2001 From: Jon Doe Date: Mon, 14 Sep 2020 17:15:56 +0200 Subject: [PATCH] constructors --- src/GypsFulvus.hs | 2 +- src/GypsFulvus/PluginStuff.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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