opt_Parallel,
-- optimisation opts
+ opt_PassCaseBndrToJoinPoints,
opt_DsMultiTyVar,
opt_NoStateHack,
opt_SimpleListLiterals,
opt_DsMultiTyVar = not (lookUp (fsLit "-fno-ds-multi-tyvar"))
-- On by default
+opt_PassCaseBndrToJoinPoints :: Bool
+opt_PassCaseBndrToJoinPoints = lookUp (fsLit "-fpass-case-bndr-to-join-points")
+
opt_SpecInlineJoinPoints :: Bool
opt_SpecInlineJoinPoints = lookUp (fsLit "-fspec-inline-join-points")