Remove getHeader, fixes #77

2014-10-14 10:30:23 -07:00
parent 605c876bf5
commit 80c55789b5
2 changed files with 2 additions and 5 deletions
@@ -39,7 +39,7 @@ spec = around appWithFixture $ do
            simpleBody p `shouldBe` ""
            simpleHeaders p `shouldSatisfy` matchHeader hLocation "/auto_incrementing_pk\\?id=eq\\.[0-9]+"
            simpleStatus p `shouldBe` created201
-          let Just location = getHeader hLocation $ simpleHeaders p
+          let Just location = lookup hLocation $ simpleHeaders p
          r <- get location
          let [record] = fromJust (JSON.decode $ simpleBody r :: Maybe [IncPK])
          liftIO $ do