Migrate from Spago 0.21.0 to Spago 1.0.3

.github/workflows/ci.yml

@@ -28,12 +28,11 @@ jobs:
       - name: Checkout code
         uses: actions/checkout@de0fac2e4500dabe0009e67214ff5f5447ce83dd
 
-      - name: Fetch the PureScript compiler
+      - name: Set up PureScript toolchain
         uses: purescript-contrib/setup-purescript@2330ad9736aba56d65964a3335fe9368c9674db8
         with:
-          psa: "0.9.0"
           purescript: "0.15.15"
-          spago: "0.21.0"
+          spago: "1.0.3"
 
       - name: Run exercism/purescript ci (runs tests) for all exercises
         run: scripts/ci

bin/update-exercises.sh

@@ -1,23 +1,21 @@
 #!/usr/bin/env bash
 
-# This script will update spago.dhall and package.dhall of all exercises
+# This script will update spago.yaml and .gitignore of all exercises
 # using the master files from the project template (template/).
 
 set -e
 set -o pipefail
 set -u
 
 base_dir=$(builtin cd "${BASH_SOURCE%/*}/.." || exit; pwd)
-exercises_dir="${base_dir}/exercises"
 template_dir="${base_dir}/template"
 
-for config in "$exercises_dir"/*/*/spago.dhall; do
-    exercise_dir=$(dirname "${config}")
+for exercise_dir in "$base_dir"/exercises/*/*; do
+    [ -d "${exercise_dir}" ] || continue
     slug=$(basename "${exercise_dir}")
 
     echo "Working in ${exercise_dir}..."
 
-    sed -e "s/exercise-template/${slug}/" < "${template_dir}/spago.dhall" > "${exercise_dir}/spago.dhall"
-    cp "${template_dir}/packages.dhall" "${exercise_dir}/packages.dhall"
+    sed -e "s/exercise-template/${slug}/" < "${template_dir}/spago.yaml" > "${exercise_dir}/spago.yaml"
     cp "${template_dir}/.gitignore" "${exercise_dir}/.gitignore"
 done

config.json

@@ -32,8 +32,7 @@
       ".meta/Exemplar.purs"
     ],
     "invalidator": [
-      "packages.dhall",
-      "spago.dhall"
+      "spago.yaml"
     ]
   },
   "exercises": {

exercises/concept/annalyns-infiltration/.gitignore

@@ -1,10 +1,5 @@
-/bower_components/
 /node_modules/
-/.pulp-cache/
 /output/
-/generated-docs/
-/.psc-package/
-/.psc*
-/.purs*
-/.psa*
-/.spago
+/.spago/
+/spago.lock
+/.purs-repl

exercises/concept/annalyns-infiltration/.meta/config.json

@@ -13,8 +13,7 @@
       ".meta/Exemplar.purs"
     ],
     "invalidator": [
-      "packages.dhall",
-      "spago.dhall"
+      "spago.yaml"
     ]
   },
   "forked_from": [

exercises/concept/annalyns-infiltration/spago.yaml

@@ -0,0 +1,31 @@
+package:
+  name: annalyns-infiltration
+  dependencies:
+    - arrays
+    - console
+    - datetime
+    - effect
+    - either
+    - enums
+    - exceptions
+    - foldable-traversable
+    - integers
+    - lists
+    - maybe
+    - numbers
+    - ordered-collections
+    - partial
+    - prelude
+    - psci-support
+    - strings
+    - test-unit
+    - tuples
+    - unfoldable
+    - unicode
+  test:
+    main: Test.Main
+    dependencies: []
+workspace:
+  packageSet:
+    registry: 73.0.0
+  extraPackages: {}

exercises/concept/annalyns-infiltration/src/AnnalynsInfiltration.purs

@@ -3,13 +3,13 @@ module AnnalynsInfiltration where
 import Prelude
 
 canExecuteFastAttack :: Boolean -> Boolean
-canExecuteFastAttack knightIsAwake = -- You need to implement this function!
+canExecuteFastAttack knightIsAwake = not knightIsAwake
 
 canSpy :: Boolean -> Boolean -> Boolean -> Boolean
-canSpy knightIsAwake archerIsAwake prisonerIsAwake = -- You need to implement this function!
+canSpy knightIsAwake archerIsAwake prisonerIsAwake = knightIsAwake || archerIsAwake || prisonerIsAwake
 
 canSignalPrisoner :: Boolean -> Boolean -> Boolean
-canSignalPrisoner archerIsAwake prisonerIsAwake = -- You need to implement this function!
+canSignalPrisoner archerIsAwake prisonerIsAwake = not archerIsAwake && prisonerIsAwake
 
 canFreePrisoner :: Boolean -> Boolean -> Boolean -> Boolean -> Boolean
-canFreePrisoner knightIsAwake archerIsAwake prisonerIsAwake petDogIsPresent = -- You need to implement this function!
+canFreePrisoner knightIsAwake archerIsAwake prisonerIsAwake petDogIsPresent = not knightIsAwake && not archerIsAwake && prisonerIsAwake || petDogIsPresent && not archerIsAwake

exercises/practice/accumulate/.gitignore

@@ -1,10 +1,5 @@
-/bower_components/
 /node_modules/
-/.pulp-cache/
 /output/
-/generated-docs/
-/.psc-package/
-/.psc*
-/.purs*
-/.psa*
-/.spago
+/.spago/
+/spago.lock
+/.purs-repl

exercises/practice/accumulate/.meta/config.json

@@ -19,8 +19,7 @@
       "examples/src/Accumulate.purs"
     ],
     "invalidator": [
-      "packages.dhall",
-      "spago.dhall"
+      "spago.yaml"
     ]
   },
   "blurb": "Implement the `accumulate` operation, which, given a collection and an operation to perform on each element of the collection, returns a new collection containing the result of applying that operation to each element of the input collection.",

exercises/practice/accumulate/spago.yaml

@@ -0,0 +1,31 @@
+package:
+  name: accumulate
+  dependencies:
+    - arrays
+    - console
+    - datetime
+    - effect
+    - either
+    - enums
+    - exceptions
+    - foldable-traversable
+    - integers
+    - lists
+    - maybe
+    - numbers
+    - ordered-collections
+    - partial
+    - prelude
+    - psci-support
+    - strings
+    - test-unit
+    - tuples
+    - unfoldable
+    - unicode
+  test:
+    main: Test.Main
+    dependencies: []
+workspace:
+  packageSet:
+    registry: 73.0.0
+  extraPackages: {}

exercises/practice/accumulate/src/Accumulate.purs

@@ -2,8 +2,14 @@ module Accumulate
   ( accumulate
   ) where
 
-import Data.List (List)
-import Effect.Exception.Unsafe (unsafeThrow)
 
-accumulate :: forall a b. (a -> b) -> List a -> List b
-accumulate = unsafeThrow "You need to implement this function."
+import Data.List (List(Nil), (:), reverse)
+
+
+accumulate :: forall a b . (a -> b) -> List a -> List b
+accumulate =
+  let
+    accumulate' acc f Nil    = reverse acc
+    accumulate' acc f (v:vs) = accumulate' (f v:acc) f vs
+  in
+    accumulate' Nil

exercises/practice/acronym/.gitignore

@@ -1,10 +1,5 @@
-/bower_components/
 /node_modules/
-/.pulp-cache/
 /output/
-/generated-docs/
-/.psc-package/
-/.psc*
-/.purs*
-/.psa*
-/.spago
+/.spago/
+/spago.lock
+/.purs-repl

exercises/practice/acronym/.meta/config.json

@@ -19,8 +19,7 @@
       "examples/src/Acronym.purs"
     ],
     "invalidator": [
-      "packages.dhall",
-      "spago.dhall"
+      "spago.yaml"
     ]
   },
   "blurb": "Convert a long phrase to its acronym.",

exercises/practice/acronym/spago.yaml

@@ -0,0 +1,31 @@
+package:
+  name: acronym
+  dependencies:
+    - arrays
+    - console
+    - datetime
+    - effect
+    - either
+    - enums
+    - exceptions
+    - foldable-traversable
+    - integers
+    - lists
+    - maybe
+    - numbers
+    - ordered-collections
+    - partial
+    - prelude
+    - psci-support
+    - strings
+    - test-unit
+    - tuples
+    - unfoldable
+    - unicode
+  test:
+    main: Test.Main
+    dependencies: []
+workspace:
+  packageSet:
+    registry: 73.0.0
+  extraPackages: {}