update+fix /purs

changelog.md

@@ -1,4 +1,10 @@
 
+__v0.0.10__
+update purescript&package versions
+
+__v0.0.9__
+(rolling releases)
+
 __v0.0.7__
 
 init

package.yaml

@@ -1,6 +1,6 @@
 name:    espial
 synopsis: Espial is an open-source, web-based bookmarking server.
-version: "0.0.9"
+version: "0.0.10"
 description: ! '
 
   Espial is an open-source, web-based bookmarking server.

purs/package.json

@@ -12,9 +12,9 @@
     "marked": "^3.0.2",
     "moment": "^2.29.1",
     "parcel-bundler": "^1.12.5",
-    "purescript": "^0.14.7",
+    "purescript": "^0.14.9",
     "spago": "^0.20.7",
-    "terser": "^5.7.2"
+    "terser": "^5.12.1"
   },
   "dependencies": {
     "dompurify": "^2.3.3"

purs/packages.dhall

@@ -21,7 +21,7 @@ in  upstream
     }
 -}
 let upstream =
-      https://raw.githubusercontent.com/purescript/package-sets/psc-0.14.7-20220228/src/packages.dhall
+      https://raw.githubusercontent.com/purescript/package-sets/psc-0.14.7-20220404/src/packages.dhall
-        sha256:585403682c9378a55da644fb2edbc74d2592d18283bc9fa3457ad79398bb55bb
+        sha256:75d0f0719f32456e6bdc3efd41cfc64785655d2b751e3d080bd849033ed053f2
 
 in  upstream

purs/spago.dhall

@@ -26,7 +26,6 @@
   , "partial"
   , "prelude"
   , "profunctor-lenses"
-  , "psci-support"
   , "simple-json"
   , "strings"
   , "transformers"

purs/src/App.purs

@@ -9,7 +9,7 @@ import Affjax.RequestBody as AXReq
 import Affjax.RequestHeader (RequestHeader(..))
 import Affjax.ResponseFormat as AXRes
 import Affjax.StatusCode (StatusCode(..))
-import Data.Argonaut (Json, decodeJson)
+import Data.Argonaut (decodeJson)
 import Data.Array ((:))
 import Data.Either (Either(..), hush)
 import Data.FormURLEncoded (FormURLEncoded)

purs/src/Component/AccountSettings.purs

@@ -5,7 +5,6 @@ import Prelude hiding (div)
 import App (editAccountSettings)
 import Data.Lens (Lens', lens, use, (%=))
 import Effect.Aff (Aff)
-import Globals (app')
 import Halogen as H
 import Halogen.HTML (div, input, text)
 import Halogen.HTML.Elements (label)
@@ -41,7 +40,6 @@ usetting u' =
     , eval: H.mkEval $ H.defaultEval { handleAction = handleAction }
     }
   where
-  app = app' unit
 
   mkState u =
     { us: u

purs/src/Component/NNote.purs

@@ -8,7 +8,6 @@ import App (destroyNote, editNote)
 import Component.Markdown as Markdown
 import Data.Array (drop, foldMap)
 import Data.Either (Either(..))
-import Data.Foldable (for_)
 import Data.Lens (Lens', lens, use, (%=), (.=))
 import Data.Maybe (Maybe(..), fromMaybe, isJust, maybe)
 import Data.Monoid (guard)

purs/src/Globals.purs

@@ -10,7 +10,7 @@ import Effect.Uncurried (EffectFn1, EffectFn2, EffectFn4, runEffectFn1, runEffec
 import Model (Bookmark)
 import Prelude (Unit)
 import Web.DOM (Node)
-import Web.HTML (HTMLElement, HTMLFormElement, Window)
+import Web.HTML (HTMLFormElement, Window)
 import Web.XHR.FormData (FormData)
 
 type App =

purs/src/Model.purs

@@ -110,9 +110,9 @@ isRelated (TagCloudModeRelated _ _) = true
 isRelated _ = false
 
 setExpanded :: TagCloudModeF -> Boolean -> TagCloudModeF
-setExpanded (TagCloudModeTop e i) e' = TagCloudModeTop e' i
+setExpanded (TagCloudModeTop _ i) e' = TagCloudModeTop e' i
-setExpanded (TagCloudModeLowerBound e i) e' = TagCloudModeLowerBound e' i
+setExpanded (TagCloudModeLowerBound _ i) e' = TagCloudModeLowerBound e' i
-setExpanded (TagCloudModeRelated e i) e' = TagCloudModeRelated e' i
+setExpanded (TagCloudModeRelated _ i) e' = TagCloudModeRelated e' i
 setExpanded TagCloudModeNone _ = TagCloudModeNone
 
 showMode :: TagCloudModeF -> String