fix: trim the error message before censoring

src/Spago/Psa.purs

@@ -176,7 +176,7 @@ shouldPrintWarning = case _ of
       let
         tests = arr <#> case _ of
           ByCode c -> \code _ -> c == code
-          ByMessagePrefix prefix -> \_ msg -> isJust $ String.stripPrefix (String.Pattern prefix) msg
+          ByMessagePrefix prefix -> \_ msg -> isJust $ String.stripPrefix (String.Pattern $ String.trim prefix) (String.trim msg)
       -- We return `true` to print the warning.
       -- If an element was found (i.e. `Just` is returned), then one of the tests succeeded, 
       -- so we should not print the warning and return false here.

test-fixtures/censor-warnings.purs

@@ -0,0 +1,12 @@
+module Main where
+
+import Prelude
+
+import Effect
+import Effect.Console (log)
+
+main :: Effect Unit
+main = do
+ let unused_var = 1
+ log "hello"
+

test-fixtures/censor-warnings.yaml

@@ -0,0 +1,16 @@
+package:
+  name: foo
+  dependencies:
+    - console
+    - effect
+    - prelude
+  build:
+    strict: true
+    censor_project_warnings:
+      - by_prefix: "Module Prelude"
+      - by_prefix: "Module Eff"
+      - "UnusedName"
+
+workspace:
+  package_set:
+    registry: 41.5.0

test/Spago/Build.purs

@@ -100,6 +100,23 @@ spec = Spec.around withTempDir do
         }
       spago [ "build" ] >>= shouldBeFailure
 
+    Spec.it "should censor warnings with given errorcode and prefix messsage" \{spago, fixture} -> do 
+       spago [ "init" ] >>= shouldBeSuccess
+       let 
+           srcMain = Path.concat [ "src" , "Main.purs" ] 
+           spagoYaml = "spago.yaml"
+       FSA.unlink srcMain 
+       FS.copyFile
+          { src : fixture "censor-warnings.purs" 
+          , dst : srcMain
+          } 
+       FSA.unlink spagoYaml 
+       FS.copyFile 
+        { src : fixture "censor-warnings.yaml"
+        , dst : spagoYaml
+        }
+       spago [ "build" ] >>= shouldBeSuccess
+
     Spec.it "building with a lockfile doesn't need the Registry repo" \{ spago, fixture } -> do
       spago [ "init", "--name", "aaa", "--package-set", "33.0.0" ] >>= shouldBeSuccess
       spago [ "build" ] >>= shouldBeSuccess