Purescript 15 update

.gitignore

@@ -1,3 +1,8 @@
 /bower_components/
 /.pulp-cache/
-/output/
+/output/
+.psc-ide-port
+/.psci_modules
+.spago
+node_modules
+.purs-repl

bower.json

@@ -9,26 +9,26 @@
     "tests"
   ],
   "dependencies": {
-    "purescript-prelude": "^4.0.0",
-    "purescript-aff": "^5.0.0",
-    "purescript-avar": "^3.0.0",
-    "purescript-console": "^4.1.0",
-    "purescript-control": "^4.0.0",
-    "purescript-datetime": "^4.0.0",
-    "purescript-exceptions": "^4.0.0",
-    "purescript-exists": "^4.0.0",
-    "purescript-free": "^5.0.0",
-    "purescript-foreign-generic": "^7.0.0",
-    "purescript-foreign-object": "^1.0.0",
-    "purescript-generics-rep": "^6.0.0",
-    "purescript-transformers": "^4.1.0",
-    "purescript-record": "^1.0.0",
-    "purescript-typelevel-prelude": "^3.0.0",
-    "purescript-tuples": "^5.0.0"
+    "purescript-prelude": "^6.0.0",
+    "purescript-aff": "^7.0.0",
+    "purescript-avar": "^5.0.0",
+    "purescript-console": "^6.0.0",
+    "purescript-control": "^6.0.0",
+    "purescript-datetime": "^6.0.0",
+    "purescript-exceptions": "^6.0.0",
+    "purescript-exists": "^6.0.0",
+    "purescript-free": "^7.0.0",
+    "purescript-foreign-generic": "https://github.com/Adien7368/purescript-foreign-generic.git#v12.0.0",
+    "purescript-transformers": "^6.0.0",
+    "purescript-foreign-object": "^4.0.0",
+    "purescript-record": "^4.0.0",
+    "purescript-typelevel-prelude": "^7.0.0",
+    "purescript-tuples": "^7.0.0",
+    "purescript-debug": "^6.0.0"
   },
   "devDependencies": {
-    "purescript-psci-support": "^4.0.0",
-    "purescript-spec": "^3.0.0"
+    "purescript-psci-support": "^6.0.0",
+    "purescript-spec": "^7.0.0"
   },
   "homepage": "https://github.com/juspay/purescript-presto",
   "description": "eDSL for writing Apps",

package.json

@@ -0,0 +1,29 @@
+{
+  "name": "purescript-presto",
+  "version": "1.0.0",
+  "description": "Write apps like equations!",
+  "main": "index.js",
+  "directories": {
+    "example": "examples",
+    "test": "test"
+  },
+  "scripts": {
+    "test": "echo \"Error: no test specified\" && exit 1",
+    "build": "pulp build"
+  },
+  "repository": {
+    "type": "git",
+    "url": "git+ssh://git@bitbucket.org/juspay/purescript-presto.git"
+  },
+  "author": "Juspay",
+  "license": "ISC",
+  "bugs": {
+    "url": "https://bitbucket.org/juspay/purescript-presto/issues"
+  },
+  "homepage": "https://bitbucket.org/juspay/purescript-presto#readme",
+  "dependencies": {
+    "pulp": "^16.0.2",
+    "purescript": "0.15.6",
+    "spago": "^0.20.9"
+  }
+}

packages.dhall

@@ -0,0 +1,134 @@
+{-
+Welcome to your new Dhall package-set!
+
+Below are instructions for how to edit this file for most use
+cases, so that you don't need to know Dhall to use it.
+
+## Use Cases
+
+Most will want to do one or both of these options:
+1. Override/Patch a package's dependency
+2. Add a package not already in the default package set
+
+This file will continue to work whether you use one or both options.
+Instructions for each option are explained below.
+
+### Overriding/Patching a package
+
+Purpose:
+- Change a package's dependency to a newer/older release than the
+    default package set's release
+- Use your own modified version of some dependency that may
+    include new API, changed API, removed API by
+    using your custom git repo of the library rather than
+    the package set's repo
+
+Syntax:
+where `entityName` is one of the following:
+- dependencies
+- repo
+- version
+-------------------------------
+let upstream = --
+in  upstream
+  with packageName.entityName = "new value"
+-------------------------------
+
+Example:
+-------------------------------
+let upstream = --
+in  upstream
+  with halogen.version = "master"
+  with halogen.repo = "https://example.com/path/to/git/repo.git"
+
+  with halogen-vdom.version = "v4.0.0"
+  with halogen-vdom.dependencies = [ "extra-dependency" ] # halogen-vdom.dependencies
+-------------------------------
+
+### Additions
+
+Purpose:
+- Add packages that aren't already included in the default package set
+
+Syntax:
+where `<version>` is:
+- a tag (i.e. "v4.0.0")
+- a branch (i.e. "master")
+- commit hash (i.e. "701f3e44aafb1a6459281714858fadf2c4c2a977")
+-------------------------------
+let upstream = --
+in  upstream
+  with new-package-name =
+    { dependencies =
+       [ "dependency1"
+       , "dependency2"
+       ]
+    , repo =
+       "https://example.com/path/to/git/repo.git"
+    , version =
+        "<version>"
+    }
+-------------------------------
+
+Example:
+-------------------------------
+let upstream = --
+in  upstream
+  with benchotron =
+      { dependencies =
+          [ "arrays"
+          , "exists"
+          , "profunctor"
+          , "strings"
+          , "quickcheck"
+          , "lcg"
+          , "transformers"
+          , "foldable-traversable"
+          , "exceptions"
+          , "node-fs"
+          , "node-buffer"
+          , "node-readline"
+          , "datetime"
+          , "now"
+          ]
+      , repo =
+          "https://github.com/hdgarrood/purescript-benchotron.git"
+      , version =
+          "v7.0.0"
+      }
+-------------------------------
+-}
+let upstream =
+      https://github.com/purescript/package-sets/releases/download/psc-0.15.3/packages.dhall
+        sha256:ffc496e19c93f211b990f52e63e8c16f31273d4369dbae37c7cf6ea852d4442f
+
+in  upstream
+  with foreign-generic =
+    { dependencies =
+      [ "arrays"
+      , "assert"
+      , "bifunctors"
+      , "console"
+      , "control"
+      , "effect"
+      , "either"
+      , "exceptions"
+      , "foldable-traversable"
+      , "foreign"
+      , "foreign-object"
+      , "identity"
+      , "lists"
+      , "maybe"
+      , "newtype"
+      , "partial"
+      , "prelude"
+      , "record"
+      , "strings"
+      , "transformers"
+      , "tuples"
+      , "typelevel-prelude"
+      , "unsafe-coerce"
+      ]
+    , repo = "https://github.com/Adien7368/purescript-foreign-generic.git"
+    , version = "v12.0.0"
+    }

spago.dhall

@@ -0,0 +1,27 @@
+{ name = "presto"
+, dependencies = 
+    [ "aff"
+    , "avar"
+    , "datetime"
+    , "effect"
+    , "either"
+    , "exceptions"
+    , "exists"
+    , "foldable-traversable"
+    , "foreign"
+    , "foreign-generic"
+    , "foreign-object"
+    , "free"
+    , "identity"
+    , "maybe"
+    , "newtype"
+    , "parallel"
+    , "prelude"
+    , "record"
+    , "transformers"
+    , "tuples"
+    , "unsafe-coerce" 
+    ]
+, packages = ./packages.dhall
+, sources = [ "src/**/*.purs" ]
+}

src/Presto/Core/Flow.purs

@@ -7,6 +7,6 @@ module Presto.Core.Flow ( module Presto.Core.Language.Runtime.API
 
 import Presto.Core.Language.Runtime.API (APIRunner, runAPIInteraction)
 import Presto.Core.Language.Runtime.Interpreter (Runtime(..), PermissionRunner(..), PermissionCheckRunner, PermissionTakeRunner, UIRunner, run)
-import Presto.Core.Types.Language.Flow (Flow, callAPI, evalUI, forkUI, runUI, showUI, get, set, load, save, delete, fork, launch, doAff, await, await', delay, oneOf)
+import Presto.Core.Types.Language.Flow (Flow, callAPI, evalUI, forkUI, runUI, showUI, get, set, load, save, delete, fork, launch, doAff, await, await', delay, oneOf, getLogField, getLogFields, setLogField)
 import Presto.Core.Types.Language.Interaction (class Interact, Interaction, defaultInteract, request)
 import Presto.Core.Types.Language.Storage (class Serializable, Key)

src/Presto/Core/Language/Runtime/API.purs

@@ -11,11 +11,10 @@ import Data.Either (Either(..))
 import Effect.Aff (Aff)
 import Effect.Exception (error)
 import Foreign.Class (encode, decode)
-
-import Presto.Core.Types.API (Request) as API
+import Presto.Core.Types.API (Request, Response) as API
 import Presto.Core.Types.Language.Interaction (InteractionF(..), Interaction, ForeignIn(..), ForeignOut(..))
 
-type APIRunner = API.Request -> Aff String
+type APIRunner = API.Request -> Aff (API.Response String)
 
 interpretAPI :: APIRunner -> InteractionF ~> Aff
 interpretAPI apiRunner (Request (ForeignIn fgnIn) nextF) = do