Move to spago. Remove pulp.

.gitignore

@@ -1,3 +1,6 @@
 /bower_components/
 /.pulp-cache/
-/output/
+/output/
+.spago/
+.purs-repl
+node_modules/

examples/billpay-react/package.json

@@ -4,9 +4,7 @@
   "private": true,
   "scripts": {
     "compile": "webpack --progress --colors --optimize-minimize",
-    "compile-psc": "pulp build",
-    "start": "npm run start-psc & webpack-dev-server --watch",
-    "start-psc": "pulp --watch build"
+    "start": "webpack-dev-server --watch"
   },
   "dependencies": {
     "es6-promise": "^4.1.0",
@@ -25,7 +23,10 @@
     "babel-preset-stage-0": "^6.5.0",
     "css-loader": "^0.28.7",
     "image-webpack-loader": "^3.4.2",
+    "parcel-bundler": "^1.12.4",
+    "purescript": "^0.13.6",
     "react-hot-loader": "^1.3.0",
+    "spago": "^0.14.0",
     "webpack": "^3.5.5",
     "webpack-dev-server": "^2.7.1",
     "webpack-shell-plugin": "^0.5.0"

examples/billpay-react/spago.dhall

@@ -0,0 +1,22 @@
+{-
+Welcome to a Spago project!
+You can edit this file as you like.
+-}
+{ name = "presto-app"
+, dependencies =
+  [ "aff"
+  , "arrays"
+  , "console"
+  , "effect"
+  , "folds"
+  , "foreign-generic"
+  , "free"
+  , "newtype"
+  , "prelude"
+  , "presto"
+  , "psci-support"
+  , "transformers"
+  ]
+, packages = ../../packages.dhall
+, sources = [ "src/**/*.purs", "test/**/*.purs" ]
+}

examples/billpay-react/src/UI/Flow.purs

@@ -9,38 +9,37 @@ import UI.Types (AskAmountScreen(..), AskAmountScreenAction(..), AskMobileNumber
 
 splashScreen :: Flow BillPayFailure SplashScreenAction
 splashScreen = do
-	action <- runUI' SplashScreen
-	case action of
-		SplashScreenRendered -> pure SplashScreenRendered
-		SplashScreenAbort -> liftLeft UserAbort
+  action <- runUI' SplashScreen
+  case action of
+    SplashScreenRendered -> pure SplashScreenRendered
+    SplashScreenAbort -> liftLeft UserAbort
 
 chooseOperator :: Array Operator -> Flow BillPayFailure Operator
 chooseOperator operators = do
-	action <- runUI' (ChooseOperatorScreen operators)
-	case action of 
-		OperatorSelected operator-> pure operator
-		ChooseOperatorScreenAbort -> liftLeft UserAbort
-	
+        action <- runUI' (ChooseOperatorScreen operators)
+        case action of
+                OperatorSelected operator-> pure operator
+                ChooseOperatorScreenAbort -> liftLeft UserAbort
+
 
 askMobileNumber :: Flow BillPayFailure MobileNumber
 askMobileNumber = do
-	action <- runUI' AskMobileNumberScreen
-	case action of
-		SubmitMobileNumber mobileNumber -> pure mobileNumber
-		AskMobileNumberScreenAbort -> liftLeft UserAbort
+        action <- runUI' AskMobileNumberScreen
+        case action of
+                SubmitMobileNumber mobileNumber -> pure mobileNumber
+                AskMobileNumberScreenAbort -> liftLeft UserAbort
 
 askAmount :: Flow BillPayFailure Amount
 askAmount = do
-	action <- runUI' AskAmountScreen
-	case action of
-		SubmitAmount amount -> pure amount
-		AskAmountScreenAbort -> liftLeft UserAbort
+        action <- runUI' AskAmountScreen
+        case action of
+                SubmitAmount amount -> pure amount
+                AskAmountScreenAbort -> liftLeft UserAbort
 
 
 billPayStatus :: MobileNumber -> Amount -> BillPayStatus -> Flow BillPayFailure StatusScreenAction
 billPayStatus mobileNumber amount payStatus = do
-	action <- runUI' (StatusScreen mobileNumber amount payStatus)
-	case action of
-		SuccessResult -> pure SuccessResult
-		StatusScreenAbort -> liftLeft UserAbort
-
+        action <- runUI' (StatusScreen mobileNumber amount payStatus)
+        case action of
+                SuccessResult -> pure SuccessResult
+                StatusScreenAbort -> liftLeft UserAbort

examples/billpay-react/test/Main.purs

@@ -0,0 +1,11 @@
+module Test.Main where
+
+import Prelude
+
+import Effect (Effect)
+import Effect.Class.Console (log)
+
+main :: Effect Unit
+main = do
+  log "🍝"
+  log "You should add some tests."