An IRC bot for learning, fun and collaboration in the Freepost community.
Clone
HTTPS:
git clone https://vervis.peers.community/repos/VvM9v
SSH:
git clone USERNAME@vervis.peers.community:VvM9v
Branches
Tags
Locations.hs
{- This file is part of funbot.
-
- Written in 2016 by fr33domlover <fr33domlover@riseup.net>.
-
- ♡ Copying is an act of love. Please copy, reuse and share.
-
- The author(s) have dedicated all copyright and related and neighboring
- rights to this software to the public domain worldwide. This software is
- distributed without any warranty.
-
- You should have received a copy of the CC0 Public Domain Dedication along
- with this software. If not, see
- <http://creativecommons.org/publicdomain/zero/1.0/>.
-}
module FunBot.Locations
( lookupLocal
, lookupGlobal
, lookupBoth
)
where
import FunBot.Types
import Network.IRC.Fun.Bot.State (getStateS)
import Network.IRC.Fun.Types (Channel)
import qualified Data.HashMap.Lazy as M (lookup)
lookupLocal :: Channel -> LocationLabel -> BotSession (Maybe Location)
lookupLocal chan label = do
chans <- getStateS $ stChannels . bsSettings
return $ M.lookup chan chans >>= M.lookup label . csLocations
lookupGlobal :: LocationLabel -> BotSession (Maybe Location)
lookupGlobal label = do
locs <- getStateS $ stLocations . bsSettings
return $ M.lookup label locs
lookupBoth :: Channel -> LocationLabel -> BotSession (Maybe Location)
lookupBoth chan label = do
mloc <- lookupLocal chan label
maybe (lookupGlobal label) (return . Just) mloc
|