Exclude SML from allmodes

jazullo · jazullo · commit b9cac41379d8 · 2023-10-18T15:22:58.000Z
diff --git a/gibbon-compiler/tests/TestRunner.hs b/gibbon-compiler/tests/TestRunner.hs
@@ -168,7 +168,7 @@ instance FromJSON Mode where
     parseJSON oth = error $ "Cannot parse Mode: " ++ show oth
 
 allModes :: [Mode]
-allModes = [minBound ..]
+allModes = filter (/= MPL) [minBound ..]  -- all modes does not include MPL
 
 readMode :: T.Text -> Mode
 readMode s =
