Add ./CabalDebianMap.hs
authorJoachim Breitner <mail@joachim-breitner.de>
Mon, 6 Dec 2010 09:45:33 +0000 (09:45 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Mon, 6 Dec 2010 09:45:33 +0000 (09:45 +0000)
CabalDebianMap.hs [new file with mode: 0644]

diff --git a/CabalDebianMap.hs b/CabalDebianMap.hs
new file mode 100644 (file)
index 0000000..bb3b46e
--- /dev/null
@@ -0,0 +1,14 @@
+module CabalDebianMap (outputCabalDebianMap) where
+
+import qualified Data.Map as M
+import Data.Maybe
+import Data.List
+
+import Types
+import Utils
+
+
+outputCabalDebianMap :: (Show k) =>  M.Map k (Maybe Version, Maybe Version, Maybe Version) ->  String
+outputCabalDebianMap = unlines . mapMaybe toLine . M.toList
+  where toLine (pkg,(h,Just dv,_)) = Just (show (show pkg, upstream (version dv), Just (url dv)))
+        toLine _                 = Nothing