19 lines
716 B
Haskell
19 lines
716 B
Haskell
|
{-# LANGUAGE ForeignFunctionInterface #-}
|
||
|
|
module Main where
|
||
|
|
import GypsFulvus.PluginStuff
|
||
|
|
import Carrion.Plugin.TCL
|
||
|
|
import Control.Concurrent.STM
|
||
|
|
import Control.Concurrent
|
||
|
|
import Control.Monad
|
||
|
|
import qualified Data.Text as T
|
||
|
|
main = do
|
||
|
|
inchan <- atomically $ newTChan
|
||
|
|
outchan <- atomically $ newTChan
|
||
|
|
let mymanhole = Manhole inchan outchan
|
||
|
|
initPlugin mymanhole
|
||
|
|
let testCommand = Sewage (GenericStyleAutor (T.pack "Test Bin") (T.pack "local") (T.pack "local")) (T.pack "inspect inspect")
|
||
|
|
atomically $ writeTChan inchan testCommand
|
||
|
|
forever $ do
|
||
|
|
newstuff <- atomically $ readTChan outchan
|
||
|
|
putStrLn $ "Backend " ++ (show $ getSewageAutor newstuff) ++ " returned " ++ (T.unpack $ getSewage newstuff)
|