Permalink
Browse files

PackageId.hs -Werror fixes

Like those:
Portage/PackageId.hs:81:4:
    Warning: A do-notation statement discarded a result of type Char.
             Suppress this warning by saying "_ <- Parse.char '/'",
             or by using the flag -fno-warn-unused-do-bind
  • Loading branch information...
1 parent 82e2e02 commit 2593f89bbf2336d8eaec943f3aba89de11cb0b00 @trofi trofi committed Dec 20, 2009
Showing with 4 additions and 4 deletions.
  1. +4 −4 Portage/PackageId.hs
View
8 Portage/PackageId.hs
@@ -78,7 +78,7 @@ instance Text PackageName where
parse = do
category <- parse
- Parse.char '/'
+ _ <- Parse.char '/'
name <- parse
return (PackageName category name)
@@ -88,7 +88,7 @@ instance Text PackageId where
parse = do
name <- parse
- Parse.char '-'
+ _ <- Parse.char '-'
version <- parse
return (PackageId name version)
@@ -102,11 +102,11 @@ parseFriendlyPackage str =
parser = do
mc <- Parse.option Nothing $ do
c <- parse
- Parse.char '/'
+ _ <- Parse.char '/'
return (Just c)
p <- parse
mv <- Parse.option Nothing $ do
- Parse.char '-'
+ _ <- Parse.char '-'
v <- parse
return (Just v)
return (mc, p, mv)

0 comments on commit 2593f89

Please sign in to comment.