Add cabal file, fix warnings

Author: jaspervdj

.gitignore

@@ -0,0 +1 @@
+dist/

LICENSE

@@ -0,0 +1,31 @@
+Copyright (c) 2009, Jasper Van der Jeugt
+ 
+All rights reserved.
+ 
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are
+met:
+ 
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+ 
+    * Redistributions in binary form must reproduce the above
+      copyright notice, this list of conditions and the following
+      disclaimer in the documentation and/or other materials provided
+      with the distribution.
+ 
+    * Neither the name of Jasper Van der Jeugt nor the names of other
+      contributors may be used to endorse or promote products derived
+      from this software without specific prior written permission.
+ 
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

NumberSix/Handlers.hs

@@ -2,7 +2,7 @@ module NumberSix.Handlers
     ( handlers
     ) where
 
-import NumberSix.Irc (Irc, Handler)
+import NumberSix.Irc (Handler)
 
 import qualified NumberSix.Handlers.Ping
 import qualified NumberSix.Handlers.Identify

NumberSix/Handlers/Google.hs

@@ -14,7 +14,7 @@ google :: String -> Irc String
 google query = httpScrape url $ \tags ->
     case find (~== TagOpen "a" [("class", "l")]) tags of
         Just (TagOpen _ attrs) -> fromMaybe "Not found" $ lookup "href" attrs
-        Nothing -> "Not found"
+        _ -> "Not found"
   where
     url = "http://www.google.com/search?q=" ++ urlEncode query
 

NumberSix/Handlers/Identify.hs

@@ -3,10 +3,8 @@ module NumberSix.Handlers.Identify
     ) where
 
 import Data.List (isInfixOf)
-import Control.Concurrent (threadDelay)
 import Control.Monad (when, forM_)
 import Data.Char (toUpper)
-import Control.Monad.Trans (liftIO)
 
 import Network.IRC
 
@@ -16,9 +14,9 @@ import NumberSix.Util
 handler :: Handler
 handler = makeHandler "identify" $ do
     params <- getParameters
-    command <- getCommand
+    command' <- getCommand
     channels <- getChannels
-    when (command == "notice" && isCheckIdent params) $ do
+    when (command' == "notice" && isCheckIdent params) $ do
         nick' <- getNick
         realName' <- getRealName
         writeMessage $ nick nick'

NumberSix/Handlers/Kick.hs

@@ -12,8 +12,8 @@ import Network.IRC
 
 handler :: Handler
 handler = makeHandler "kick" $ onCommand "kick" $ do
-    (channel : nick : _) <- getParameters
+    (channel : nick' : _) <- getParameters
     myNick <- getNick
-    when (nick == myNick) $ do
+    when (nick' == myNick) $ do
         sleep 3
         writeMessage $ joinChan channel

NumberSix/Handlers/Seen.hs

@@ -3,8 +3,6 @@ module NumberSix.Handlers.Seen
     ) where
 
 import Control.Applicative ((<$>))
-import Data.Maybe (fromMaybe)
-import Control.Monad (forM_)
 
 import NumberSix.Irc
 import NumberSix.Util

NumberSix/Irc.hs

@@ -2,7 +2,7 @@ module NumberSix.Irc
     ( -- * Core types
       IrcConfig (..)
     , IrcState (..)
-    , Irc (..)
+    , Irc
     , Handler (..)
 
       -- * Obtaining parameters
@@ -40,7 +40,6 @@ import Control.Monad (when)
 import Control.Monad.Reader (ReaderT, ask)
 import Control.Monad.Trans (liftIO)
 import Data.Char (isSpace, toLower)
-import Data.Maybe (listToMaybe)
 import System.IO (Handle, hPutStr)
 
 import Database.Redis.Redis (Redis)

NumberSix/Util/Redis.hs

@@ -8,7 +8,6 @@ module NumberSix.Util.Redis
 import Data.List (intercalate)
 import Control.Monad.Trans (liftIO)
 
-import qualified Data.ByteString as SB
 import qualified Data.ByteString.Lazy as LB
 import Data.Binary (Binary, encode, decode)
 import Database.Redis.Redis

number-six.cabal

@@ -0,0 +1,40 @@
+Name:                number-six
+Version:             0.1
+Synopsis:            A sexy IRC bot
+License-file:        LICENSE
+Author:              Jasper Van der Jeugt
+Maintainer:          [email protected]
+Stability:           Experimental
+Category:            Network
+Build-type:          Simple
+Cabal-version:       >= 1.2
+
+Library
+  Ghc-Options:       -Wall
+  Exposed-Modules:   NumberSix.Handlers
+                     NumberSix.Handlers.Google
+                     NumberSix.Handlers.Hello
+                     NumberSix.Handlers.Identify
+                     NumberSix.Handlers.Kick
+                     NumberSix.Handlers.Ping
+                     NumberSix.Handlers.Seen
+                     NumberSix.Handlers.Tell
+                     NumberSix.Handlers.Twitter
+                     NumberSix.Irc
+                     NumberSix.Util
+                     NumberSix.Util.Http
+                     NumberSix.Util.Redis
+  Build-depends:     base >= 4 && < 5,
+                     monads-fd >= 0.1,
+                     random >= 1,
+                     containers >= 0.3,
+                     HTTP >= 4000,
+                     bytestring >= 0.9,
+                     utf8-string >= 0.3,
+                     redis >= 0.7,
+                     binary >= 0.5,
+                     tagsoup >= 0.10,
+                     irc >= 0.4,
+                     old-locale >= 1,
+                     time >= 1,
+                     dataenc >= 0.13