Merge pull request #40 from jonsterling/ready/update-build

Update purescript, gulp-purescript; fix warnings

Author: jdegoes

examples/src/Examples.purs

@@ -1,4 +1,4 @@
-module Examples where 
+module Examples where
   import Control.Monad.Eff.Console (CONSOLE())
 
   import Data.Either(either)
@@ -13,55 +13,55 @@ module Examples where
   import Control.Monad.Eff.Class(liftEff)
   import Control.Monad.Eff.Exception(error)
   import Control.Monad.Error.Class(throwError)
-  
+
   type Test a = forall e. Aff (console :: CONSOLE | e) a
   type TestAVar a = forall e. Aff (console :: CONSOLE, avar :: AVAR | e) a
 
-  test_sequencing :: Int -> Test _
+  test_sequencing :: Int -> Test String
   test_sequencing 0 = print "Done"
   test_sequencing n = do
     later' 100 (print (show (n / 10) ++ " seconds left"))
     test_sequencing (n - 1)
 
-  test_pure :: Test _
+  test_pure :: Test String
   test_pure = do
-    pure unit 
+    pure unit
     pure unit
     pure unit
     print "Success: Got all the way past 4 pures"
 
-  test_attempt :: Test _
+  test_attempt :: Test String
   test_attempt = do
     e <- attempt (throwError (error "Oh noes!"))
     either (const $ print "Success: Exception caught") (const $ print "Failure: Exception NOT caught!!!") e
 
-  test_apathize :: Test _
+  test_apathize :: Test String
   test_apathize = do
     apathize $ throwError (error "Oh noes!")
     print "Success: Exceptions don't stop the apathetic"
 
-  test_putTakeVar :: TestAVar _
+  test_putTakeVar :: TestAVar String
   test_putTakeVar = do
     v <- makeVar
     forkAff (later $ putVar v 1.0)
-    a <- takeVar v 
+    a <- takeVar v
     print ("Success: Value " ++ show a)
 
-  test_killFirstForked :: Test _
-  test_killFirstForked = do 
+  test_killFirstForked :: Test String
+  test_killFirstForked = do
     c <- forkAff (later' 100 $ pure "Failure: This should have been killed!")
     b <- c `cancel` (error "Just die")
     print (if b then "Success: Killed first forked" else "Failure: Couldn't kill first forked")
 
 
-  test_killVar :: TestAVar _
+  test_killVar :: TestAVar String
   test_killVar = do
     v <- makeVar
     killVar v (error "DOA")
     e <- attempt $ takeVar v
     either (const $ print "Success: Killed queue dead") (const $ print "Failure: Oh noes, queue survived!") e
 
-  test_finally :: TestAVar _
+  test_finally :: TestAVar String
   test_finally = do
     v <- makeVar
     finally
@@ -76,47 +76,47 @@ module Examples where
     print $ if n1 + n2 + n3 == 42 then "Success: effects amount to 42."
                                   else "Failure: Expected 42."
 
-  test_parRace :: TestAVar _
+  test_parRace :: TestAVar String
   test_parRace = do
-    s <- runPar (Par (later' 100 $ pure "Success: Early bird got the worm") <|> 
+    s <- runPar (Par (later' 100 $ pure "Success: Early bird got the worm") <|>
                  Par (later' 200 $ pure "Failure: Late bird got the worm"))
     print s
 
-  test_parRaceKill1 :: TestAVar _
+  test_parRaceKill1 :: TestAVar String
   test_parRaceKill1 = do
-    s <- runPar (Par (later' 100 $ throwError (error ("Oh noes!"))) <|> 
+    s <- runPar (Par (later' 100 $ throwError (error ("Oh noes!"))) <|>
                  Par (later' 200 $ pure "Success: Early error was ignored in favor of late success"))
     print s
 
-  test_parRaceKill2 :: TestAVar _
+  test_parRaceKill2 :: TestAVar String
   test_parRaceKill2 = do
-    e <- attempt $ runPar (Par (later' 100 $ throwError (error ("Oh noes!"))) <|> 
+    e <- attempt $ runPar (Par (later' 100 $ throwError (error ("Oh noes!"))) <|>
                            Par (later' 200 $ throwError (error ("Oh noes!"))))
     either (const $ print "Success: Killing both kills it dead") (const $ print "Failure: It's alive!!!") e
 
-  test_semigroupCanceler :: Test _
-  test_semigroupCanceler = 
-    let 
+  test_semigroupCanceler :: Test String
+  test_semigroupCanceler =
+    let
       c = Canceler (const (pure true)) <> Canceler (const (pure true))
-    in do 
+    in do
       v <- cancel c (error "CANCEL")
-      print (if v then "Success: Canceled semigroup composite canceler" 
+      print (if v then "Success: Canceled semigroup composite canceler"
                        else "Failure: Could not cancel semigroup composite canceler")
 
-  test_cancelLater :: TestAVar _
+  test_cancelLater :: TestAVar String
   test_cancelLater = do
     c <- forkAff $ (do pure "Binding"
                        _ <- later' 100 $ print ("Failure: Later was not canceled!")
                        pure "Binding")
     v <- cancel c (error "Cause")
     print (if v then "Success: Canceled later" else "Failure: Did not cancel later")
 
-  test_cancelPar :: TestAVar _
+  test_cancelPar :: TestAVar String
   test_cancelPar = do
     c  <- forkAff <<< runPar $ Par (later' 100 $ print "Failure: #1 should not get through") <|>
                                Par (later' 100 $ print "Failure: #2 should not get through")
     v  <- c `cancel` (error "Must cancel")
-    print (if v then "Success: Canceling composite of two Par succeeded" 
+    print (if v then "Success: Canceling composite of two Par succeeded"
                      else "Failure: Canceling composite of two Par failed")
 
   main = launchAff $ do

package.json

@@ -4,8 +4,8 @@
     "gulp": "^3.8.6",
     "gulp-jsvalidate": "^2.0.0",
     "gulp-plumber": "^1.0.0",
-    "gulp-purescript": "^0.6.0",
+    "gulp-purescript": "^0.7.0",
     "gulp-run": "^1.6.8",
-    "purescript": "^0.7.4-rc.1"
+    "purescript": "^0.7.4"
   }
 }