tellbot 0.6.0.2 → 0.6.0.3

raw patch · 4 files changed

+9/−3 lines, 4 files

Files

CHANGELOG.md +6/−0
src/HTML.hs +1/−1
src/Main.hs +1/−1
tellbot.cabal +1/−1

CHANGELOG.md view

@@ -1,6 +1,12 @@ tellbot CHANGELOG ================= +### 0.6.0.3++#### Patch changes++- Added colors!+ ### 0.6.0.2  #### Patch changes

src/HTML.hs view

@@ -23,7 +23,7 @@ extractTitle :: String -> Maybe String extractTitle body =   case dropTillTitle (parseTags body) of-    (TagText title:TagClose "title":_) -> pure (chomp $ "« " ++ title ++ " »")+    (TagText title:TagClose "title":_) -> pure (chomp $ "\ETX9« " ++ title ++ " »\SI")     _ -> Nothing  dropTillTitle :: [Tag String] -> [Tag String]

src/Main.hs view

@@ -270,7 +270,7 @@           else do             now <- liftIO $ utctDay `liftM` getCurrentTime             modify . M.insertWith (flip (++)) (show emitterNick) $-              [show now ++ ", " ++ emitter ++ " told " ++ (unNick emitterNick) ++ ": " ++ msg]+              [show now ++ ", \STX\ETX6" ++ emitter ++ "\SI told \STX\ETX2" ++ (unNick emitterNick) ++ "\SI: " ++ msg]             msgIRC emitter "\\_o<"         | otherwise = msgIRC chan "nope!"     (emitterNick,msg) = bimap Nick tailSafe . break (==' ') $ arg

tellbot.cabal view

@@ -1,5 +1,5 @@ name:                tellbot-version:             0.6.0.2+version:             0.6.0.3 synopsis:            IRC tellbot description:         An IRC bot that can be used to create queuing message.                      It also offers a simple administration IRC bot interface.