Fix stream write to include error callback

CHANGELOG.md

@@ -6,6 +6,7 @@ Notable changes to this project are documented in this file. The format is based
 
 Breaking changes:
 - Update project and deps to PureScript v0.15.0 (#39 by @nwolverson, @JordanMartinez, @sigma-andex)
+- Update `write` callback to include `Error` arg (#40 by @JordanMartinez)
 
 New features:
 

src/Node/Stream.purs

@@ -254,15 +254,15 @@ foreign import write
   :: forall r
    . Writable r
   -> Buffer
-  -> Effect Unit
+  -> (Error -> Effect Unit)
   -> Effect Boolean
 
 foreign import writeStringImpl
   :: forall r
    . Writable r
   -> String
   -> String
-  -> Effect Unit
+  -> (Error -> Effect Unit)
   -> Effect Boolean
 
 -- | Write a string in the specified encoding to a writable stream.
@@ -271,7 +271,7 @@ writeString
    . Writable r
   -> Encoding
   -> String
-  -> Effect Unit
+  -> (Error -> Effect Unit)
   -> Effect Boolean
 writeString w enc = writeStringImpl w (show enc)
 

test/Main.purs

@@ -62,7 +62,7 @@ testReads = do
         assertEqual (unsafePartial (fromJust str)) testString
         pure unit
 
-      writeString sIn UTF8 testString do
+      writeString sIn UTF8 testString \_ -> do
         pure unit
 
     testReadBuf = do
@@ -77,7 +77,7 @@ testReads = do
                     <*> pure testString
         pure unit
 
-      writeString sIn UTF8 testString do
+      writeString sIn UTF8 testString \_ -> do
         pure unit
 
 testSetDefaultEncoding :: Effect Boolean
@@ -91,7 +91,7 @@ testSetDefaultEncoding = do
 
   where
   check w = do
-    writeString w UTF8 testString do
+    writeString w UTF8 testString \_ -> do
       c <- getContentsAsString w
       assertEqual testString c
 
@@ -128,7 +128,7 @@ testPipe = do
   log "pipe 3"
   _ <- unzip `pipe` sOut
 
-  writeString sIn UTF8 testString do
+  writeString sIn UTF8 testString \_ -> do
     end sIn do
       onDataString sOut UTF8 \str -> do
         assertEqual str testString