| By | fr33domlover |
| At | 2016-01-26 |
| Title | Add settings option for IRCBrowse URL |
| Description |
Edit file src/FunBot/Settings/Sections/Channels.hs 33188 → 33188
114 114 , mkOptionF
115 115 (getf "(?)" csEmail)
116 116 (setf $ \ cs s -> cs { csEmail = s })117 117 "(?)"
118 118 )
+ 119 , ( "browse"
+ 120 , mkOptionF
+ 121 (getf "" $ fromMaybe "" . csBrowse)
+ 122 (setf $ \ cs url ->
+ 123 if T.null url
+ 124 then cs { csBrowse = Nothing }+ 125 else cs { csBrowse = Just url }+ 126 )
+ 127 ""
+ 128 )
119 129 ]
120 130 , secSubs = M.fromList
121 131 [ ( "locations"
122 132 , Section
123 133 { secOpts = M.fromList $ map (locationOption chan) lls… … … …