fix example

.eslintrc.json

@@ -0,0 +1,29 @@
+{
+  "parserOptions": {
+    "ecmaVersion": 5
+  },
+  "extends": "eslint:recommended",
+  "env": {
+    "node": true,
+    "commonjs": true
+  },
+  "rules": {
+    "strict": [2, "global"],
+    "block-scoped-var": 2,
+    "consistent-return": 2,
+    "eqeqeq": [2, "smart"],
+    "guard-for-in": 2,
+    "no-caller": 2,
+    "no-extend-native": 2,
+    "no-loop-func": 2,
+    "no-new": 2,
+    "no-param-reassign": 2,
+    "no-return-assign": 2,
+    "no-unused-expressions": 2,
+    "no-use-before-define": 2,
+    "radix": [2, "always"],
+    "indent": [2, 2],
+    "quotes": [2, "double"],
+    "semi": [2, "always"]
+  }
+}

README.md

@@ -5,6 +5,8 @@
 
 A wrapper for Node's [Stream API](https://nodejs.org/api/stream.html).
 
+See the `example` directory for a usage example.
+
 ## Installation
 
 ```

example/Gzip.js

@@ -1,9 +1,5 @@
-/* global exports */
-/* global require */
 "use strict";
 
-// module Gzip
-
-exports.gzip = require('zlib').createGzip;
+exports.gzip = require("zlib").createGzip;
+exports.fileStream = require("fs").createReadStream("example/Gzip.txt");
 exports.stdout = process.stdout;
-exports.stdin = process.stdin;

example/Gzip.purs

@@ -2,18 +2,20 @@ module Gzip where
 
 import Prelude
 
-import Node.Stream
-
-import Control.Monad.Eff
-import Control.Monad.Eff.Console
+import Control.Monad.Eff (Eff, kind Effect)
+import Control.Monad.Eff.Console (CONSOLE, log)
+import Node.Stream (Duplex, Readable, Writable, onEnd, pipe)
 
 foreign import data GZIP :: Effect
 
 foreign import gzip :: forall eff. Eff (gzip :: GZIP | eff) (Duplex (gzip :: GZIP | eff))
-foreign import stdin :: forall eff. Readable () (console :: CONSOLE | eff)
+foreign import fileStream :: forall eff. Readable () (console :: CONSOLE | eff)
 foreign import stdout :: forall eff. Writable () (console :: CONSOLE | eff)
 
+main :: forall eff. Eff (gzip :: GZIP, console :: CONSOLE | eff) Unit
 main = do
   z <- gzip
-  _ <- stdin `pipe` z
-  z     `pipe` stdout
+  _ <- fileStream `pipe` z
+  _ <- z `pipe` stdout
+  void <<< onEnd fileStream $
+    log "Done reading file, gzip output below"

example/Gzip.txt

@@ -0,0 +1 @@
+Compress me pretty please!