Updates for ps-0.12.0

bower.json

@@ -12,13 +12,11 @@
     "output"
   ],
   "dependencies": {
-    "purescript-prelude": "^3.0.0",
-    "purescript-console": "^3.0.0",
-    "purescript-hyper": "^0.7.3"
+    "purescript-hyper": "httsp://github.com/lambdaterms-forks/hyper.git#33edf95c4e1db5a6f798e66199fad9b5643e0064"
   },
   "devDependencies": {
-    "purescript-psci-support": "^3.0.0",
-    "purescript-spec": "^0.14.0",
-    "purescript-spec-discovery": "^0.6.0"
+    "purescript-psci-support": "^4.0.0",
+    "purescript-spec": "^3.0.0",
+    "purescript-spec-discovery": "https://github.com/owickstrom/purescript-spec-discovery.git#a1a8dfd5fadb3f00199d68d20af4bbf56a048c6e"
   }
 }

src/Hyper/Drive.purs

@@ -9,14 +9,14 @@ module Hyper.Drive ( Request(..)
                    ) where
 
 import Prelude
-import Data.StrMap as StrMap
 import Control.IxMonad (ibind)
 import Data.Bifunctor (class Bifunctor)
 import Data.Either (Either)
 import Data.HTTP.Method (CustomMethod, Method)
 import Data.Newtype (class Newtype)
-import Data.StrMap (StrMap)
 import Data.Tuple (Tuple(..), curry)
+import Foreign.Object as Object
+import Foreign.Object (Object)
 import Hyper.Conn (Conn)
 import Hyper.Header (Header)
 import Hyper.Middleware (Middleware, lift')
@@ -28,14 +28,14 @@ import Hyper.Status (Status, statusOK)
 newtype Request body components =
   Request { method :: Either Method CustomMethod
           , url :: String
-          , headers :: StrMap String
+          , headers :: Object String
           , body :: body
           , components :: components
           }
 
 newtype Response body =
   Response { status :: Status
-           , headers :: StrMap String
+           , headers :: Object String
            , body :: body
            }
 
@@ -78,7 +78,7 @@ hyperdrive app = do
                     }
   Response res <- lift' (app req)
   writeStatus res.status
-  StrMap.foldM (const (curry writeHeader)) unit res.headers
+  Object.foldM (const (curry writeHeader)) unit res.headers
   closeHeaders
   toResponse res.body >>= send
   end
@@ -94,7 +94,7 @@ response
 response b =
   Response
   { status: statusOK
-  , headers: StrMap.empty
+  , headers: Object.empty
   , body: b
   }
 
@@ -112,7 +112,7 @@ header
   -> Response body
   -> Response body
 header (Tuple k v) (Response res) =
-  Response (res { headers = StrMap.insert k v res.headers })
+  Response (res { headers = Object.insert k v res.headers })
 
 body
   :: forall a body

test/Hyper/DriveSpec.purs

@@ -1,19 +1,19 @@
 module Hyper.DriveSpec where
 
 import Prelude
-import Data.StrMap as StrMap
 import Data.Maybe (Maybe(..))
 import Data.Monoid (mempty)
 import Data.Newtype (unwrap)
 import Data.Tuple (Tuple(..))
+import Foreign.Object as Object
 import Hyper.Drive (Response(..), hyperdrive)
 import Hyper.Middleware (evalMiddleware)
 import Hyper.Status (statusNotFound, statusOK)
 import Hyper.Test.TestServer (TestRequest(..), TestResponse(..), defaultRequest, testHeaders, testServer, testStatus, testStringBody)
 import Test.Spec (Spec, describe, it)
 import Test.Spec.Assertions (shouldContain, shouldEqual)
 
-spec :: Spec () Unit
+spec :: Spec Unit
 spec = do
   let runHyperdrive app =
         { request: TestRequest $ defaultRequest { body = "Bonjour" }
@@ -35,7 +35,7 @@ spec = do
 
       it "responds with the supplied headers" do
         conn <- runHyperdrive (const $ pure $ Response { status: statusOK
-                                                       , headers: StrMap.singleton "foo" "bar"
+                                                       , headers: Object.singleton "foo" "bar"
                                                        , body: mempty
                                                        })
         testHeaders conn `shouldContain` Tuple "foo" "bar"

test/Main.purs

@@ -1,11 +1,10 @@
 module Test.Main where
 
 import Prelude
-import Control.Monad.Eff (Eff)
-import Node.FS (FS)
+import Effect (Effect)
 import Test.Spec.Discovery (discover)
 import Test.Spec.Reporter.Console (consoleReporter)
-import Test.Spec.Runner (RunnerEffects, run)
+import Test.Spec.Runner (run)
 
-main :: Eff (RunnerEffects (fs :: FS)) Unit
+main :: Effect Unit
 main = discover "Hyper\\..*Spec" >>= run [consoleReporter]