diff options
| author | Julien Dessaux | 2010-04-25 16:43:01 +0200 |
|---|---|---|
| committer | Julien Dessaux | 2010-04-25 16:43:01 +0200 |
| commit | b6d119cf5b14fd7198552e939d8f49b15307e74e (patch) | |
| tree | 1f2188a89b159d6800ff89ed3346437aebfb2782 /Hsbot/Utils.hs | |
| parent | Added an utility function to correctly answer a message we receive (aka /msg) (diff) | |
| download | hsbot-b6d119cf5b14fd7198552e939d8f49b15307e74e.tar.gz hsbot-b6d119cf5b14fd7198552e939d8f49b15307e74e.tar.bz2 hsbot-b6d119cf5b14fd7198552e939d8f49b15307e74e.zip | |
Some refactoring + cosmetics.
Diffstat (limited to '')
| -rw-r--r-- | Hsbot/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Hsbot/Utils.hs b/Hsbot/Utils.hs index a58fd0c..247a65c 100644 --- a/Hsbot/Utils.hs +++ b/Hsbot/Utils.hs @@ -16,7 +16,7 @@ import Hsbot.Types -- |Wrap a string with ANSI escape sequences. inColor :: String -> [Int] -> String inColor str vals = "\ESC[" ++ valstr ++ "m" ++ str ++ "\ESC[0m" - where valstr = concat $ intersperse ";" $ map show vals + where valstr = concat . intersperse ";" $ map show vals -- | Sends a string over handle sendstr :: String -> IrcBot () |