Merge pull request #84 from nsaunders/node-buffer-v6

Changes required for node-buffer v6.

Author: nsaunders

src/Hyper/Node/BasicAuth.purs

@@ -1,5 +1,7 @@
 module Hyper.Node.BasicAuth where
 
+import Prelude
+import Node.Buffer (Buffer)
 import Node.Buffer as Buffer
 import Control.Monad.Indexed (ipure)
 import Control.Monad.Indexed.Qualified as Ix
@@ -27,8 +29,9 @@ decodeBase64 ∷ ∀ m c
   .  MonadEffect m
   => String
   → Middleware m c c String
-decodeBase64 encoded =
-  liftEffect (Buffer.fromString encoded Base64 >>= Buffer.toString ASCII)
+decodeBase64 encoded = liftEffect do
+  buffer :: Buffer <- Buffer.fromString encoded Base64
+  Buffer.toString ASCII buffer
 
 
 withAuthentication

src/Hyper/Node/Server.purs

@@ -125,7 +125,7 @@ readBodyAsBuffer (HttpRequest request _) = do
 instance readableBodyHttpRequestString :: (Monad m, MonadAff m)
                                        => ReadableBody HttpRequest m String where
   readBody =
-    readBody :>>= (liftEffect <<< Buffer.toString UTF8)
+    readBody :>>= (\(buffer :: Buffer) -> liftEffect $ Buffer.toString UTF8 buffer)
 
 instance readableBodyHttpRequestBuffer :: (Monad m, MonadAff m)
                                        => ReadableBody HttpRequest m Buffer where