hackage2hwn 0.1 → 0.2
raw patch · 2 files changed
+15/−9 lines, 2 filesdep ~xml
Dependency ranges changed: xml
Files
- Main.hs +13/−7
- hackage2hwn.cabal +2/−2
Main.hs view
@@ -14,7 +14,7 @@ module Main (main) where -import XML+import Text.XML.Light import Data.Maybe import Data.List import Data.Char@@ -38,10 +38,10 @@ -- parse xml into hackage items render Nothing = error "Unable to download hackage" render (Just e) = map process items- where Just v = elContent e+ where v = elContent e [es] = [ x | Elem x <- v ]- Just body = elContent es- items = map onlyElems [ fromJust (elContent e) | Elem e <- drop 10 body ]+ body = elContent es+ items = map onlyElems [ (elContent e) | Elem e <- drop 10 body ] process [a,b,c,d,e] =@@ -56,9 +56,15 @@ proj = strContent a projurl = strContent b descr = strContent e- author = reverse . takeWhile ( not . isSpace) . reverse- . takeWhile (/= ',')- $ head [ e | TagText e <- parseTags descr ]+ author =+ let (h:rest) =+ reverse . takeWhile ( not . isSpace) . reverse+ . takeWhile (/= ',')+ $ head [ e | TagText e <- parseTags descr ]++ (first,last) = break isUpper rest+ in (h:first ++ " " ++ last)+ synopsis = last [ e | TagText e <- parseTags descr ] -- hackage items in the haskell weekly news
hackage2hwn.cabal view
@@ -1,5 +1,5 @@ Name: hackage2hwn-Version: 0.1+Version: 0.2 homepage: http://code.haskell.org/~dons/code/hackage2hwn Synopsis: Convert Hackage RSS feeds to Haskell Weekly News format Description: Download and parse the Hackage RSS 2.0 feed for the@@ -9,7 +9,7 @@ License-file: LICENSE Author: Don Stewart Maintainer: <dons@galois.com>-Build-Depends: base, tagsoup, xml+Build-Depends: base, tagsoup, xml ==1.2.3 Executable: hackage2hwn Main-is: Main.hs