Merge pull request #4 from SimonRichardson/meltdown

Updating to purescript 0.7.0

Author: jdegoes

Gruntfile.js

@@ -19,18 +19,11 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-tuples":        "~0.3.0",
-    "purescript-either":        "~0.1.4",
-    "purescript-monoid":        "~0.2.0",
-    "purescript-exceptions":    "~0.2.2",
-    "purescript-control":       "~0.2.2",
-    "purescript-maybe":         "~0.2.1",
-    "purescript-strings":       "~0.4.5",
-    "purescript-monad-eff":     "~0.1.0",
-    "purescript-lists":         "~0.6.0",
-    "purescript-profunctor":    "~0.2.1",
-    "purescript-control":       "~0.2.6",
-    "purescript-foldable-traversable": "~0.3.1",
-    "purescript-transformers":  "~0.5.1"
+    "purescript-console":      "^0.1.0",
+    "purescript-exceptions":   "^0.3.0",
+    "purescript-lists":        "^0.7.0",
+    "purescript-profunctor":   "^0.3.0",
+    "purescript-strings":      "^0.5.2",
+    "purescript-transformers": "^0.6.1"
   }
 }

bower.json

@@ -1,20 +1,20 @@
 module Examples where 
-  import Debug.Trace(Trace(), trace)
+  import Control.Monad.Eff.Console
   import Control.Monad.Eff(Eff())
   import Data.Maybe(Maybe(..))
   import Data.Maybe.Unsafe(fromJust)
   import Data.Path.Pathy
 
-  test :: forall a. (Show a, Eq a) => String -> a -> a -> Eff (trace :: Trace) Unit
+  test :: forall a. (Show a, Eq a) => String -> a -> a -> Eff (print :: CONSOLE) Unit
   test name actual expected= do
-    trace $ "Test: " ++ name 
-    if expected == actual then trace $ "Passed: " ++ (show expected) else trace $ "Failed: Expected " ++ (show expected) ++ " but found " ++ (show actual)
+    print $ "Test: " ++ name 
+    if expected == actual then print $ "Passed: " ++ (show expected) else print $ "Failed: Expected " ++ (show expected) ++ " but found " ++ (show actual)
 
-  test' :: forall a b s. String -> Path a b s -> String -> Eff (trace :: Trace) Unit
+  test' :: forall a b s. String -> Path a b s -> String -> Eff (print :: CONSOLE) Unit
   test' n p s = test n (unsafePrintPath p) s
 
   main = do
-    trace "NEW TEST"
+    print "NEW TEST"
 
     -- Should not compile:
     -- test "(</>) - file in dir" (printPath (file "image.png" </> dir "foo")) "./image.png/foo"

examples/src/Examples.purs

@@ -0,0 +1,34 @@
+/* jshint node: true */
+"use strict";
+
+var gulp = require("gulp"),
+    purescript = require("gulp-purescript"),
+    run = require("gulp-run"),
+
+    sources = [
+      "src/**/*.purs",
+      "bower_components/purescript-*/src/**/*.purs",
+      "test/**/*.purs"
+    ],
+
+    foreigns = [
+      "src/**/*.js",
+      "bower_components/purescript-*/src/**/*.js",
+      "test/**/*.js"
+    ];
+
+gulp.task("make", function() {
+  return purescript.psc({ src: sources, ffi: foreigns });
+});
+
+gulp.task("test", ["make"], function() {
+  return purescript.pscBundle({ src: "output/**/*.js", main: "Test.Main" })
+    .pipe(run("node"));
+});
+
+gulp.task("dotpsci", function () {
+  return purescript.psci({ src: sources, ffi: foreigns })
+    .pipe(gulp.dest("."));
+});
+
+gulp.task("default", ["test", "dotpsci"]);