adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Improved the duck plugin arguments handling

Browse source
This commit is contained in:
Julien Dessaux 2011-06-17 13:08:33 +02:00
parent 336ec59689
commit 8fae434532
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
Hsbot/Plugin/Duck.hs
View file

@ -1,7 +1,8 @@
{-# LANGUAGE TypeFamilies, DeriveDataTypeable, TemplateHaskell #-} {-# LANGUAGE TypeFamilies, DeriveDataTypeable, TemplateHaskell #-}
-- | This module is an IRC plugin that generates and kills ducks -- | This module is an IRC plugin that generates and kills ducks
module Hsbot.Plugin.Duck module Hsbot.Plugin.Duck
( duck ( DuckArgs (..)
, duck
, theDuck , theDuck
) where ) where
@ -50,11 +51,15 @@ $(makeAcidic ''StatDB ['getDuckStats, 'updateScore])
duck :: PluginId duck :: PluginId
duck = PluginId duck = PluginId
{ pluginName = "duck" { pluginName = "duck"
, pluginEp = theDuck "" 10 } , pluginEp = theDuck $ DuckArgs { duckChannel = "", duckFreq = 10 } }
data DuckArgs = DuckArgs
{ duckChannel :: String
, duckFreq :: Int }
-- | An IRC plugin that generates and kills ducks -- | An IRC plugin that generates and kills ducks
theDuck :: String -> Int -> Plugin (Env IO) () theDuck :: DuckArgs -> Plugin (Env IO) ()
theDuck channel seconds = do theDuck (DuckArgs channel seconds) = do
baseDir <- liftIO $ System.Environment.XDG.BaseDir.getUserDataDir "hsbot" baseDir <- liftIO $ System.Environment.XDG.BaseDir.getUserDataDir "hsbot"
statDB <- liftIO $ openAcidStateFrom (baseDir ++ "/duckDB/") emptyStatDB statDB <- liftIO $ openAcidStateFrom (baseDir ++ "/duckDB/") emptyStatDB
ducksMVar <- liftIO newEmptyMVar ducksMVar <- liftIO newEmptyMVar