More cleanup

packages.dhall

@@ -1,6 +1,5 @@
 let upstream =
-      https://github.com/purescript/package-sets/releases/download/psc-0.15.8-20230528/packages.dhall
-        sha256:7f1ebc6968ebabae915640456faf98f52f5606189f48cb22305fbe008723f26c
+      https://github.com/purescript/package-sets/releases/download/psc-0.15.8-20230528/packages.dhall sha256:7f1ebc6968ebabae915640456faf98f52f5606189f48cb22305fbe008723f26c
 
 in  upstream
   with suggest =
@@ -24,7 +23,6 @@ in  upstream
       , "psa-utils"
       , "refs"
       , "strings"
-      , "test-unit"
       ]
     , repo = "https://github.com/nwolverson/purescript-suggest.git"
     , version = "c866dd7408902313c45bb579715f479f7f268162"

src/Main.purs

@@ -135,7 +135,7 @@ triggerRebuild stateRef file = do
         Ref.write (State {errors: parsedErrors}) stateRef
         case Array.head parsedErrors >>= _.suggestion of
           Nothing → pure unit
-          Just s → suggestionHint
+          Just _ → suggestionHint
         when (testAfterRebuild && isRight errs)
           (execCommand "Test" $ printCLICommand testCommand)
 

src/Pscid/Psa.purs

@@ -10,7 +10,7 @@ import Prelude
 import Data.Argonaut (Json, decodeJson, printJsonDecodeError)
 import Data.Array as Array
 import Data.Bifunctor (lmap)
-import Data.Either (Either, hush)
+import Data.Either (Either)
 import Data.Maybe (Maybe(..), fromMaybe)
 import Data.Maybe as Maybe
 import Data.Set as Set
@@ -43,11 +43,11 @@ defaultOptions =
 
 print ∷ String → PsaOptions → Output → Effect Unit
 print successMessage options {warnings, errors} = do
-  iter_ warnings \i warning → do
+  iter_ warnings \_ warning → do
     Console.error (toString (renderWarning 1 1 warning))
     Console.error ""
 
-  iter_ errors \i error → do
+  iter_ errors \_ error → do
     Console.error (toString (renderError 1 1 error))
     Console.error ""
 
@@ -59,9 +59,6 @@ print successMessage options {warnings, errors} = do
 parseErrors ∷ Json → Either String (Array PsaError)
 parseErrors j = traverse parsePsaError =<< (lmap printJsonDecodeError $ decodeJson j)
 
-parseFirstError ∷ Json → Maybe PsaError
-parseFirstError j = Array.head =<< hush (parseErrors j)
-
 emptyResult ∷ PsaResult
 emptyResult = {warnings: [], errors: []}