Bump a few dependencies, fix compilation failures.

diff --git a/lwn-epub.cabal b/lwn-epub.cabal
index 1d104b69fd837adc3f397a7039b374bd3c74dbf3..c8331ae3d3b040e2688361f87f0a45879179111c 100644 (file)
--- a/lwn-epub.cabal
+++ b/lwn-epub.cabal
@@ -19,19 +19,19 @@ data-files: makefile doc/README
 
 executable lwn-epub
   build-depends:
-    base                    == 4.5.*,
-    bytestring              == 0.9.*,
+    base                    == 4.6.*,
+    bytestring              == 0.10.*,
     cmdargs                 == 0.10.*,
     ConfigFile              == 1.*,
     containers              == 0.*,
-    directory               == 1.1.*,
+    directory               == 1.2.*,
     filepath                == 1.3.*,
     HandsomeSoup            == 0.3.*,
-    http-conduit            == 1.6.*,
+    http-conduit            == 1.8.*,
     http-types              == 0.7.*,
     hxt                     == 9.*,
-    MissingH                == 1.1.*,
-    network                 == 2.3.*,
+    MissingH                == 1.2.*,
+    network                 == 2.4.*,
     pandoc                  == 1.9.*,
     parallel-io             == 0.3.*,
     regex-posix             == 0.95.*,
@@ -91,11 +91,11 @@ test-suite testsuite
     directory               == 1.1.*,
     filepath                == 1.3.*,
     HandsomeSoup            == 0.3.*,
-    http-conduit            == 1.6.*,
+    http-conduit            == 1.8.*,
     http-types              == 0.7.*,
     hxt                     == 9.*,
-    MissingH                == 1.1.*,
-    network                 == 2.3.*,
+    MissingH                == 1.2.*,
+    network                 == 2.4.*,
     pandoc                  == 1.9.*,
     parallel-io             == 0.3.*,
     regex-posix             == 0.95.*,

diff --git a/src/LWN/Page.hs b/src/LWN/Page.hs
index c39a2f5126fd6d474f3ec0d902662a4f6c42d176..5f3b9ee608f42dc9895c458e3968e0363f4702bb 100644 (file)
--- a/src/LWN/Page.hs
+++ b/src/LWN/Page.hs
@@ -4,11 +4,10 @@ module LWN.Page
 where
 
 import Control.Concurrent.ParallelIO (parallel)
-import qualified Data.Map as Map (lookup)
 import Data.Time (getCurrentTime)
 import qualified Data.ByteString.Lazy as B (ByteString, hPut)
 import Data.String.Utils (split, strip)
-import qualified Data.Map as Map (Map, empty, insert)
+import qualified Data.Map as Map (Map, empty, insert, lookup)
 import Data.Maybe (catMaybes, fromJust, isNothing)
 import Prelude hiding (readFile)
 import System.IO (Handle, hClose, hFlush)

diff --git a/src/LWN/URI.hs b/src/LWN/URI.hs
index f20c294a3b21fbd3809c18e417669d6e1911244c..7a0a41f026a893881d90b546743e6624ede117c7 100644 (file)
--- a/src/LWN/URI.hs
+++ b/src/LWN/URI.hs
@@ -149,7 +149,7 @@ filename url =
 
 
 
-make_absolute_uri :: URI -> Maybe URI
+make_absolute_uri :: URI -> URI
 make_absolute_uri relative_uri =
   relativeTo relative_uri base_uri
   where
@@ -168,10 +168,7 @@ make_absolute_url relative_url =
   case parse_result of
     Nothing -> Nothing
     Just relative_uri ->
-      let abs_result = make_absolute_uri relative_uri in
-      case abs_result of
-        Nothing -> Nothing
-        Just abs_uri -> Just $ show abs_uri
+      Just $ show $ make_absolute_uri relative_uri
   where
     parse_result = parseURIReference relative_url