wrath/shaniqua-core
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

export InitStatus

Browse Source
This commit is contained in:
Jon Doe 2020-09-14 17:07:31 +02:00 committed by Maciej Bonin
parent b939d9665d
commit 4af4907c32
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/GypsFulvus/PluginStuff.hs
View File

@ -1,4 +1,4 @@
module GypsFulvus.PluginStuff(loadCommsPlugins, Sewage, Manhole) where module GypsFulvus.PluginStuff(loadCommsPlugins, Sewage, Manhole, InitStatus) where
import Control.Monad import Control.Monad
import System.Directory import System.Directory
import System.Plugins.Make import System.Plugins.Make
@ -13,7 +13,7 @@ data Sewage = Sewage {
data Manhole = Manhole { data Manhole = Manhole {
getInputChan :: TChan Sewage, getInputChan :: TChan Sewage,
getOutputChan :: TChan Sewage} getOutputChan :: TChan Sewage}
data InitStatus = GoodInitStatus | BadInitStatus T.Text
srcPluginPath :: IO FilePath srcPluginPath :: IO FilePath
srcPluginPath = getXdgDirectory XdgData "gypsfulvus/srcplugins" >>= makeAbsolute srcPluginPath = getXdgDirectory XdgData "gypsfulvus/srcplugins" >>= makeAbsolute