@@ -84,7 +84,7 @@ collapseIfElses = everywhereOnCpp collapse
84 returns _ = False
84 returns _ = False
85 go (cpp' : cpps') = cpp' : go cpps'
85 go (cpp' : cpps') = cpp' : go cpps'
86 go cpp' = cpp'
86 go cpp' = cpp'
87− collapse (CppIfElse (CppAccessor (CppVar "otherwise") (CppVar mn')) body _) | mn' == C.prelude = body
87+ collapse (CppIfElse (CppAccessor (CppVar "otherwise") (CppVar mn')) body _) | mn' == "Data_Boolean" = body
88 collapse cpp = cpp
88 collapse cpp = cpp
90collapseCtorChecksToSwitch :: Cpp -> Cpp
90collapseCtorChecksToSwitch :: Cpp -> Cpp