tut27: ready for gist

Author: adkelley

.gitignore

@@ -11,4 +11,5 @@
 */src/Secret.purs
 */*.sketch
 test-build-log.txt
-spago-update-log.txt
+spago-update-log.txt
+*/index.js

resources/tut27_dataflow_layer1.png

@@ -7,6 +7,7 @@
  "clean": "rimraf output && rimraf .spago && rimraf .purs-repl && rimraf .psci_modules",
  "install": "spago install",
  "build": "spago build",
+ "bundle": "spago bundle-app --main Main --to index.js",
  "exec": "spago run",
  "all": "npm run clean && npm run install && npm run build && npm run exec"
  }

resources/tut27_process_example.png

@@ -27,20 +27,20 @@ names =
  pure $
  if (length args > 0)
  then Right args
- else Left "you must enter at least one name"
+ else Left "you must enter at least one artist"
  in
  newTask $ \callback -> do
  checkArgs >>= \args ->
  callback $ either (\e -> rej e) (\xs -> res xs) args
  pure $ nonCanceler
 
-findArtist :: String -> TaskE Error Artist
-findArtist name = taskOf name
+findArtist :: Artist -> TaskE Error Artist
+findArtist = taskOf
 
 relatedArtists :: Id -> TaskE Error RelatedArtists
-relatedArtists id = taskOf ["Oasis", "Blur"]
+relatedArtists _ = taskOf ["John Lennon", "Paul McCartney"]
 
-artistId :: Artist -> TaskE Error Int
+artistId :: Artist -> TaskE Error Id
 artistId _ = taskOf 10
 
 related :: String -> TaskE Error RelatedArtists

resources/tut27_process_node.png

@@ -7,6 +7,7 @@
  "clean": "rimraf output && rimraf .spago && rimraf .purs-repl && rimraf .psci_modules",
  "install": "spago install",
  "build": "spago build",
+ "bundle": "spago bundle-app --main Main --to index.js",
  "exec": "spago run",
  "all": "npm run clean && npm run install && npm run build && npm run exec"
  }