From 4af4907c32ca525e3f0ab824aab3631454217c94 Mon Sep 17 00:00:00 2001 From: Jon Doe Date: Mon, 14 Sep 2020 17:07:31 +0200 Subject: [PATCH] export InitStatus --- src/GypsFulvus/PluginStuff.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/GypsFulvus/PluginStuff.hs b/src/GypsFulvus/PluginStuff.hs index b7b3149..61d7be5 100644 --- a/src/GypsFulvus/PluginStuff.hs +++ b/src/GypsFulvus/PluginStuff.hs @@ -1,4 +1,4 @@ -module GypsFulvus.PluginStuff(loadCommsPlugins, Sewage, Manhole) where +module GypsFulvus.PluginStuff(loadCommsPlugins, Sewage, Manhole, InitStatus) where import Control.Monad import System.Directory import System.Plugins.Make @@ -13,7 +13,7 @@ data Sewage = Sewage { data Manhole = Manhole { getInputChan :: TChan Sewage, getOutputChan :: TChan Sewage} - +data InitStatus = GoodInitStatus | BadInitStatus T.Text srcPluginPath :: IO FilePath srcPluginPath = getXdgDirectory XdgData "gypsfulvus/srcplugins" >>= makeAbsolute