neil 0.0 → 0.1

raw patch · 2 files changed

+3/−2 lines, 2 files

Files

neil.cabal +1/−1
src/Cabal.hs +2/−1

neil.cabal view

@@ -1,7 +1,7 @@ cabal-version:      >= 1.6 build-type:         Simple name:               neil-version:            0.0+version:            0.1 license:            BSD3 license-file:       LICENSE category:           Development

src/Cabal.hs view

@@ -118,8 +118,9 @@ fixFileLinks (stripPrefix "<a href=\"file://" -> Just xs)     | (a,'\"':b) <- break (== '\"') xs     , modu <- takeFileName a-    , (pkg,_) <- breakEnd (== '-') $ takeFileName $ takeDirectory a+    , (pkg,_) <- breakEnd (== '-') $ takeFileName $ dropHTML $ takeDirectory a     = "<a href=\"/package/" ++ pkg ++ "/docs/" ++ modu ++ "\"" ++ fixFileLinks b+    where dropHTML x = if takeFileName x == "html" then takeDirectory x else x fixFileLinks (x:xs) = x : fixFileLinks xs fixFileLinks [] = []