summaryrefslogtreecommitdiffstats
path: root/src/Reaktor
diff options
context:
space:
mode:
authortv <tv@krebsco.de>2019-01-29 20:49:47 +0100
committertv <tv@krebsco.de>2019-01-29 20:50:31 +0100
commit9f4e2644188f985d7cd806c13e2c0dee1688b9f0 (patch)
treeb7b99a856bcab4caee867936dd759e832d7547c3 /src/Reaktor
parent92ca5dbea78d4520e1cc0a3162cee2bbeb6c4c88 (diff)
Reaktor: add send delay support
Diffstat (limited to 'src/Reaktor')
-rw-r--r--src/Reaktor/Internal.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Reaktor/Internal.hs b/src/Reaktor/Internal.hs
index 66e00af..bd3d241 100644
--- a/src/Reaktor/Internal.hs
+++ b/src/Reaktor/Internal.hs
@@ -32,11 +32,12 @@ data Config = Config
, cNick :: Maybe Text
, cLogHandle :: Handle
, cLogTime :: Bool
+ , cSendDelay :: Maybe Int
}
deriving Show
instance Default Config where
- def = Config False "irc.r" "6667" Nothing stderr True
+ def = Config False "irc.r" "6667" Nothing stderr True Nothing
instance FromJSON Config where
parseJSON = \case
@@ -47,6 +48,7 @@ instance FromJSON Config where
cNick <- v .:? "nick"
cLogHandle <- pure (cLogHandle def)
cLogTime <- v .:? "logTime" .!= cLogTime def
+ cSendDelay <- fmap (round . (*(1e6 :: Float))) <$> v .:? "sendDelaySec"
pure Config{..}
invalid -> typeMismatch "Config" invalid
where