Ignore return value of Node.Stream.writeString

From Node.Stream.writeString docs:

  "Returns false if the stream wishes for the calling code to wait for the 'drain' event to be emitted before continuing to write additional data; otherwise true."

So it seems that it is enough to just wait till writing has finished which is done by our Aff continuation.
I'm not sure but situation can be a bit more complicated if we take
Aff Fibers into account and consider other "concurrent" writes...

Author: paluh

src/Hyper/Node/Server.purs

@@ -17,7 +17,7 @@ import Control.Monad.Aff.AVar (AVAR, makeEmptyVar, makeVar, putVar, takeVar)
 import Control.Monad.Aff.Class (class MonadAff, liftAff)
 import Control.Monad.Eff (Eff)
 import Control.Monad.Eff.Class (class MonadEff, liftEff)
-import Control.Monad.Eff.Exception (EXCEPTION, catchException, error)
+import Control.Monad.Eff.Exception (EXCEPTION, catchException)
 import Control.Monad.Error.Class (throwError)
 import Data.Either (Either(..), either)
 import Data.HTTP.Method as Method
@@ -61,14 +61,9 @@ newtype NodeResponse m e
   = NodeResponse (Writable () e -> m Unit)
 
 writeString :: forall m e. MonadAff e m => Encoding -> String -> NodeResponse m e
-writeString enc str = NodeResponse $ \w -> liftAff (makeAff (writeAsAff w))
-  where
-    writeAsAff w k = do
-      Stream.writeString w enc str (k (pure unit)) >>=
-      if _
-        then k (pure unit)
-        else k (throwError (error "Failed to write string to response"))
-      pure nonCanceler
+writeString enc str = NodeResponse $ \w ->
+  liftAff (makeAff (\k -> Stream.writeString w enc str (k (pure unit))
+                          *> pure nonCanceler))
 
 write :: forall m e. MonadAff e m => Buffer -> NodeResponse m e
 write buffer = NodeResponse $ \w ->