wikipedia4epub 0.0.8 → 0.0.9

raw patch · 2 files changed

+6/−2 lines, 2 files

Files

• src/Network/Wikipedia.hs +5/−1
• wikipedia4epub.cabal +1/−1

@@ -18,6 +18,7 @@ import Data.List (nub) import Data.Maybe (mapMaybe, fromJust) import Data.Either+import Data.Char import qualified Data.ByteString.Lazy.Char8 as BC import qualified Data.ByteString.Lazy as ByteString import qualified Codec.Compression.GZip as GZip@@ -26,7 +27,10 @@                  | WikiArticleSRC  { waTitle :: String, waContent :: String } deriving (Show, Ord, Eq)  sanitizeFileName :: FilePath -> FilePath-sanitizeFileName cs = makeValid cs+sanitizeFileName cs = map removeNonAscii $ makeValid cs+  where+    removeNonAscii z | isAscii z = z+                     | otherwise = '_'  isArticleURL :: URL -> Bool isArticleURL (URL (Absolute (Host (HTTP False) xs Nothing)) ph []) = (xs =~ ".*en[.]wikipedia.org$") && (ph =~ "wiki/[^/]+$" )

@@ -1,5 +1,5 @@ Name:            wikipedia4epub-Version:         0.0.8+Version:         0.0.9 License:         BSD3 License-File:    LICENSE Homepage:        http://rampa.sk/static/wikipedia4epub.html