trace-dispatcher: test fix

Author: jutaro

trace-dispatcher/test/Cardano/Logging/Test/Oracles.hs

@@ -25,8 +25,8 @@ oracleMessages conf ScriptRes {..} =
     oracleMessage :: ScriptedMessage -> Bool
     oracleMessage (ScriptedMessage _t msg) =
       let ns = namespaceFor msg
-          filterSeverity = getSeverity conf (nsReplacePrefix ns ["Test"])
-          backends = getBackends conf (nsReplacePrefix ns ["Test"])
+          filterSeverity = getSeverity conf (nsReplacePrefix ["Test"] ns)
+          backends = getBackends conf (nsReplacePrefix ["Test"] ns)
           inStdout = hasStdoutBackend backends
                       && fromEnum (fromMaybe Error (severityFor ns Nothing)) >= fromEnum filterSeverity
           isCorrectStdout = includedExactlyOnce msg srStdoutRes == inStdout