[More tweaks to the utility stuff
Neil Mitchell**20101029175556] {
hunk ./src/Recipe/Hackage.hs 32
-readHackage = return [("uniplate","1.5.1")
-                     ,("haskell-src","1.0.1.3")]
+readHackage = do
+    src <- readFile "-hackage.web"
+    let pre = "><a href=\"/package/"
+    return $ map (second (drop 1) . rbreak (== '-') . init . drop (length pre)) $
+            filter (isPrefixOf pre) $ map trim $ lines src
hunk ./src/Recipe/Keyword.hs 15
-        writeFile "keyword.txt" . translate =<< readFile "keyword.web"
+        writeFile "keyword.txt" . translate =<< readFile "-keyword.web"
hunk ./src/Recipe/Type.hs 42
-                return $ res == ExitSuccess
+                let b = res == ExitSuccess
+                unless b $ removeFile to
+                return b
}