Try names without dashes
authorJoachim Breitner <mail@joachim-breitner.de>
Tue, 8 Sep 2009 17:14:08 +0000 (17:14 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Tue, 8 Sep 2009 17:14:08 +0000 (17:14 +0000)
Debian.hs

index 3511b41..58ea9b8 100644 (file)
--- a/Debian.hs
+++ b/Debian.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE PatternGuards #-}
+
 module Debian where
 
 import Debian.Control.ByteString
@@ -17,6 +19,7 @@ findHaskellPackages hackage (Control sources) = map getData . filter isHaskellPa
                cabalName | Just found <- find ((`M.member` hackage).fromHackage) [
                                        package,
                                        drop (length "haskell-") package,
+                                       filter (/= '-') $ drop (length "haskell-") package,
                                        reverse $ drop (length "haskell-") $ reverse package
                                        ]
                                        = found