Allow patch requests

Fixes #87
2014-11-06 23:49:29 -08:00
parent 76ea92bfce
commit 58adb5e828
4 changed files with 52 additions and 11 deletions
@@ -15,7 +15,6 @@ import Network.HTTP.Types.Status (ok200)
 spec :: Spec
 spec = let
  dbErrApp conn _ res = do
-    putStrLn "In fake app"
    _ <- insert "1" "items" (SqlRow []) conn
    runRaw conn "select 1/0"
    _ <- insert "1" "items" (SqlRow []) conn