snap-testing 0.2.0.0 → 0.2.0.1

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• snap-testing.cabal +1/−1
• src/Snap/Test/BDD.hs +2/−2

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                snap-testing-version:             0.2.0.0+version:             0.2.0.1 synopsis:            A library for BDD-style testing with the Snap Web Framework -- description: homepage:            https://github.com/dbp/snap-testing

@@ -94,7 +94,7 @@ import qualified Data.Text as T (append) import           Data.Text.Encoding (encodeUtf8) import           Data.Monoid (mempty)-import           Data.Maybe (fromJust)+import           Data.Maybe (fromMaybe) import           Control.Monad (liftM, zipWithM, void) import           Control.Monad.Trans import           Control.Monad.Trans.State (StateT, evalStateT)@@ -364,7 +364,7 @@     testRedirect rsp     testEqual message uri rspUri   where-    rspUri = fromJust $ getHeader "Location" rsp+    rspUri = fromMaybe "" $ getHeader "Location" rsp     message = pack $ "Expected redirect to " ++ show uri               ++ " but got redirected to "               ++ show rspUri ++ " instead"