Do not quote params in Location header

Also treat the enum field in OPTIONS as an array uniformly
This commit is contained in:
Joe Nelson
2014-12-06 17:42:21 -08:00
parent 42faaa97c9
commit f1ecbec543
6 changed files with 44 additions and 42 deletions
-13
View File
@@ -5,19 +5,6 @@ import Test.Hspec.Wai
import SpecHelper
-- around :: (ActionWith a -> IO ()) -> SpecWith a -> Spec
-- type Spec = SpecWith ()
-- type ActionWith a = a -> IO ()
--
-- get :: ByteString -> WaiSession SResponse
-- newtype WaiSession a = WaiSession {unWaiSession :: Session a}
-- type Session = ReaderT Application (StateT ClientState IO)
--
-- type Application =
-- Request -> (Response -> IO ResponseReceived) -> IO ResponseReceived
--
-- runApp :: Request -> (Response -> IO Postgres) -> IO Postgres
spec :: Spec
spec = around withApp $ do
describe "Querying a nonexistent table" $