web: add Peter Simons' patch fixing Data.Conduit.Network HostIPv4 err…

…or (#171)
simonmichael · Apr 17, 2014 · 993cae3 · 993cae3
1 parent 105c1d0
commit 993cae3
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/hledger-web/Hledger/Web/Main.hs b/hledger-web/Hledger/Web/Main.hs
@@ -15,7 +15,8 @@ import Yesod.Default.Config --(fromArgs)
 -- import Yesod.Default.Main   (defaultMain)
 import Settings            --  (parseExtra)
 import Application          (makeApplication)
-import Data.Conduit.Network (HostPreference(HostIPv4))
+import Data.String
+import Data.Conduit.Network
 import Network.Wai.Handler.Warp (runSettings, defaultSettings, settingsPort)
 import Network.Wai.Handler.Launch (runUrlPort)
 --
@@ -63,7 +64,7 @@ web opts j = do
   app <- makeApplication opts j' AppConfig{appEnv = Development
                                           ,appPort = p
                                           ,appRoot = pack u
-                                          ,appHost = HostIPv4
+                                          ,appHost = fromString "*4"
                                           ,appExtra = Extra "" Nothing
                                           }
   if server_ opts

diff --git a/hledger-web/hledger-web.cabal b/hledger-web/hledger-web.cabal
@@ -129,6 +129,7 @@ library
                    , http-client          >= 0.2 && < 0.4
                    , HUnit
                    , network-conduit
+                   , conduit-extra
                    , old-locale
                    , parsec
                    , regexpr              >= 0.5.1
@@ -221,6 +222,7 @@ executable         hledger-web
                    , http-client          >= 0.2 && < 0.4
                    , HUnit
                    , network-conduit
+                   , conduit-extra
                    , old-locale
                    , parsec
                    , regexpr              >= 0.5.1