Permalink
Browse files

Fixed GHC warnings.

  • Loading branch information...
1 parent e9d5d64 commit 6b2a2286bfc71b53d6b1514a1c40ab9046bec9e1 @peti peti committed Jan 9, 2011
Showing with 3 additions and 1 deletion.
  1. +2 −1 Distribution/ArchLinux/PkgBuild.hs
  2. +1 −0 Distribution/ArchLinux/SystemProvides.lhs
@@ -184,7 +184,7 @@ mydisp (LowerBound v t, NoUpperBound) =
case t of
InclusiveBound -> if v==zeroVersion then empty else text ">=" <> disp v
ExclusiveBound -> text ">" <> disp v
-mydisp (LowerBound v1 t1, UpperBound v2 t2) = text symbol <> disp v2
+mydisp (LowerBound v1 _, UpperBound v2 t2) = text symbol <> disp v2
where symbol | v1 == v2 = "="
| t2 == InclusiveBound = "<="
| t2 == ExclusiveBound = "<"
@@ -503,6 +503,7 @@ rawpkg2doc pkg = vcat
escapeForBash :: String -> String
escapeForBash = concatMap escapeCharForBash
+escapeCharForBash :: Char -> String
escapeCharForBash c = case c of
'$' -> "\\$"
'`' -> "\\`"
@@ -39,6 +39,7 @@ A big structure holding data about ArchLinux
Empty SystemProvides
+> emptySystemProvides :: SystemProvides
> emptySystemProvides = SystemProvides [] [] M.empty
Get SystemProvides from files.

0 comments on commit 6b2a228

Please sign in to comment.