Rename to Node.ReadLine

Author: garyb

Makefile

@@ -1,13 +1,13 @@
 all: lib test
 
 lib:
-	mkdir -p js/System/
-	psc src/System/ReadLine.purs.hs \
-	  -o js/System/ReadLine.js \
-	  -e js/System/ReadLine.e.purs.hs \
-	  --module System.ReadLine --tco --magic-do
+	mkdir -p js/Node/
+	psc src/Node/ReadLine.purs.hs \
+	  -o js/Node/ReadLine.js \
+	  -e js/Node/ReadLine.e.purs.hs \
+	  --module Node.ReadLine --tco --magic-do
 
 test:
-	psc src/System/ReadLine.purs.hs examples/Examples.purs.hs \
+	psc src/Node/ReadLine.purs.hs examples/Examples.purs.hs \
 	  -o js/Examples.js \
 	  --main --module Main --tco --magic-do

examples/Examples.purs.hs

@@ -3,7 +3,7 @@ module Main where
 import Prelude
 import Control.Monad
 import Control.Monad.Eff
-import System.ReadLine
+import Node.ReadLine
 import Debug.Trace
 import Data.Tuple
 

src/Node/ReadLine.purs.hs

@@ -1,4 +1,4 @@
-module System.ReadLine where
+module Node.ReadLine where
 
 import Data.Tuple
 import Control.Monad.Eff
@@ -11,7 +11,7 @@ foreign import data InputStream :: *
 
 foreign import data OutputStream :: *
 
-foreign import process :: { stderr :: OutputStream, stdout :: OutputStream, stdin :: System.ReadLine.InputStream }
+foreign import process :: { stderr :: OutputStream, stdout :: OutputStream, stdin :: InputStream }
 
 type Completer eff = String -> Eff eff (Tuple [String] String)
 
@@ -27,15 +27,15 @@ foreign import setLineHandler
   \      return readline;\
   \    };\
   \  };\
-  \};" :: forall eff. LineHandler eff -> Interface -> Control.Monad.Eff.Eff (console :: System.ReadLine.Console | eff) System.ReadLine.Interface
+  \};" :: forall eff. LineHandler eff -> Interface -> Eff (console :: Console | eff) Interface
 
 foreign import prompt 
   "function prompt(readline) {\
   \  return function() {\
   \    readline.prompt();\
   \    return readline;\
   \  };\
-  \};" :: forall eff. Interface -> Control.Monad.Eff.Eff (console :: Console | eff) System.ReadLine.Interface
+  \};" :: forall eff. Interface -> Eff (console :: Console | eff) Interface
 
 foreign import setPrompt 
   "function setPrompt(prompt) {\
@@ -47,7 +47,7 @@ foreign import setPrompt
   \      };\
   \    };\
   \  };\
-  \}" :: forall eff. Prim.String -> Prim.Number -> Interface -> Control.Monad.Eff.Eff (console :: Console | eff) System.ReadLine.Interface
+  \}" :: forall eff. Prim.String -> Prim.Number -> Interface -> Eff (console :: Console | eff) Interface
 
 foreign import createInterface 
   "function createInterface(input) {\
@@ -66,6 +66,6 @@ foreign import createInterface
   \      };\
   \    };\
   \  };\
-  \}" :: forall eff. InputStream -> OutputStream -> System.ReadLine.Completer eff -> Control.Monad.Eff.Eff (console :: System.ReadLine.Console | eff) System.ReadLine.Interface
+  \}" :: forall eff. InputStream -> OutputStream -> Completer eff -> Eff (console :: Console | eff) Interface