Exclude SML from allmodes

iu-parfunc · Oct 18, 2023 · b9cac41 · b9cac41
1 parent fcb4be7
commit b9cac41
Showing 1 changed file with 1 addition and 1 deletion.
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 =