An IRC bot for learning, fun and collaboration in the Freepost community.

[[ 🗃 ^VvM9v funbot ]] :: [📥 Inbox] [📤 Outbox] [🐤 Followers] [🤝 Collaborators] [🛠 Commits]

Clone

HTTPS: git clone https://vervis.peers.community/repos/VvM9v

SSH: git clone USERNAME@vervis.peers.community:VvM9v

Branches

Tags

master :: src / FunBot / Settings /

MkOption.hs

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68

{- This file is part of funbot.
 -
 - Written in 2015 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.Settings.MkOption
    ( mkOptionF
    , mkOptionF'
    , mkOptionB
    )
where

import Data.Settings.Option
import Data.Settings.Types
import FunBot.Settings.Persist
import FunBot.Types
import Network.IRC.Fun.Bot.State (saveBotState)

-- | An option whose value is held by funbot's 'Settings' and saved into its
-- settings file.
mkOptionF :: OptionValue v
          => (Settings -> v)             -- ^ Get
          -> (v -> Settings -> Settings) -- ^ Set which never fails
          -> v                           -- ^ Default value for reset
          -> SettingsOption
mkOptionF get set defval = mkOptionS get set' reset cb
    where
    set' v s = Just $ set v s
    reset s = (Just defval, set defval s)
    cb = const saveBotSettings

-- | A variant of 'mkOptionF' which accepts a callback to run after the default
-- one.
mkOptionF' :: OptionValue v
           => (Settings -> v)             -- ^ Get
           -> (v -> Settings -> Settings) -- ^ Set which never fails
           -> v                           -- ^ Default value for reset
           -> (v -> BotSession ())        -- ^ Additional callback
           -> SettingsOption
mkOptionF' get set defval cbx = mkOptionS get set' reset cb
    where
    set' v s = Just $ set v s
    reset s = (Just defval, set defval s)
    cb v = saveBotSettings >> cbx v

-- | An option whose value is held by irc-fun-bot's 'BotState' and saved into
-- its state file.
mkOptionB :: OptionValue v
          => BotSession v         -- ^ Get
          -> (v -> BotSession ()) -- ^ Set which never fails
          -> v                    -- ^ Default value for reset
          -> SettingsOption
mkOptionB get set defval = mkOptionV get set' reset
    where
    setTo val = set val >> cb val
    set' val = setTo val >> return True
    reset = setTo defval
    cb = const saveBotState
[See repo JSON]