Permalink
Browse files

Some more -Wall fixes (import refinements + unused -> _unused)

  • Loading branch information...
1 parent c3c8420 commit 3e32a08d8f18704889dd98de61f42700f60756fb @trofi trofi committed Mar 7, 2009
Showing with 10 additions and 10 deletions.
  1. +1 −1 Cabal2Ebuild.hs
  2. +9 −9 CabalDistributionVersion.hs
View
2 Cabal2Ebuild.hs
@@ -139,7 +139,7 @@ convertDependencies :: [Cabal.Dependency] -> [Dependency]
convertDependencies = concatMap convertDependency
convertDependency :: Cabal.Dependency -> [Dependency]
-convertDependency (Cabal.Dependency pname@(Cabal.PackageName name) _)
+convertDependency (Cabal.Dependency pname@(Cabal.PackageName _name) _)
| pname `elem` coreLibs = [] -- no explicit dep on core libs
convertDependency (Cabal.Dependency pname versionRange)
= case versionRange of
View
18 CabalDistributionVersion.hs
@@ -92,14 +92,14 @@ module CabalDistributionVersion (
) where
-import Data.Version ( Version(..) )
-
-import Distribution.Text ( Text(..) )
-import qualified Distribution.Compat.ReadP as Parse
-import Distribution.Compat.ReadP ((+++))
-import qualified Text.PrettyPrint as Disp
-import Text.PrettyPrint ((<>), (<+>))
-import qualified Data.Char as Char (isDigit)
+-- import Data.Version ( Version(..) )
+
+-- import Distribution.Text ( Text(..) )
+-- import qualified Distribution.Compat.ReadP as Parse
+-- import Distribution.Compat.ReadP ((+++))
+-- import qualified Text.PrettyPrint as Disp
+-- import Text.PrettyPrint ((<>), (<+>))
+-- import qualified Data.Char as Char (isDigit)
import Control.Exception (assert)
import Distribution.Version
@@ -217,7 +217,7 @@ foldVersionRange :: a -> (Version -> a) -> (Version -> a) -> (Version -> a)
-> (Version -> Version -> a)
-> (a -> a -> a) -> (a -> a -> a)
-> VersionRange -> a
-foldVersionRange anyv this later earlier wildcard union intersect = fold
+foldVersionRange anyv this later earlier _wildcard union intersect = fold
where
fold AnyVersion = anyv
fold (ThisVersion v) = this v

0 comments on commit 3e32a08

Please sign in to comment.