snap-app 0.2.1 → 0.2.2

raw patch · 2 files changed

+8/−8 lines, 2 files

Files

• snap-app.cabal +1/−1
• src/Snap/App/Controller.hs +7/−7

@@ -1,5 +1,5 @@ name:                snap-app-version:             0.2.1+version:             0.2.2 synopsis:            Simple modules for writing apps with Snap, abstracted from hpaste. homepage:            Simple modules for writing apps with Snap, abstracted from hpaste. license:             BSD3

@@ -25,7 +25,6 @@ import Control.Monad.Reader       (runReaderT) import Data.ByteString            (ByteString) import Data.ByteString.UTF8       (toString)-import Data.Maybe import Data.String import Data.Pagination import Network.URI@@ -104,9 +103,10 @@ getMyURI :: AppConfig c => Controller c s URI getMyURI = do   domain <- env (getConfigDomain . controllerStateConfig)-  fmap (fromJust .-	parseURI .-	(("http://" ++ domain) ++) .-	toString .-	rqURI)-       getRequest+  result <- fmap (parseURI . (("http://" ++ domain) ++) . toString . rqURI)+                 getRequest+  case result of+    Nothing -> case parseURI ("http://" ++ domain) of+      Nothing -> error $ "Unable to parse my own domain! It's this: " ++ domain+      Just d -> return d+    Just d -> return d