Warnings police

haskell · Nov 3, 2012 · 60f6872 · 60f6872
1 parent 879efe3
commit 60f6872
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/Cabal/Distribution/Simple/Build/PathsModule.hs b/Cabal/Distribution/Simple/Build/PathsModule.hs
@@ -210,7 +210,7 @@ get_prefix_win32 arch =
     where cconv = case arch of
                   I386 -> "stdcall"
                   X86_64 -> "ccall"
-
+                  _ -> error "win32 supported only with I386, X86_64"
 
 get_prefix_hugs :: String
 get_prefix_hugs =

diff --git a/cabal-install/Distribution/Client/HttpUtils.hs b/cabal-install/Distribution/Client/HttpUtils.hs
@@ -15,14 +15,14 @@ import Network.HTTP
          , Header(..), HeaderName(..) )
 import Network.HTTP.Proxy ( Proxy(..), fetchProxy)
 import Network.URI
-         ( URI (..), URIAuth (..), parseAbsoluteURI )
+         ( URI (..), URIAuth (..) )
 import Network.Browser
-         ( Authority (..), BrowserAction, browse
+         ( BrowserAction, browse
          , setOutHandler, setErrHandler, setProxy, setAuthorityGen, request)
 import Network.Stream
          ( Result, ConnError(..) )
 import Control.Monad
-         ( mplus, join, liftM, liftM2 )
+         ( liftM )
 import qualified Data.ByteString.Lazy.Char8 as ByteString
 import Data.ByteString.Lazy (ByteString)
 
@@ -45,7 +45,7 @@ trim = f . f
 -- |Get the local proxy settings  
 --TODO: print info message when we're using a proxy based on verbosity
 proxy :: Verbosity -> IO Proxy
-proxy verbosity = do
+proxy _verbosity = do
   p <- fetchProxy True
   -- Handle empty proxy strings
   return $ case p of