@@ -443,7 +443,7 @@ moduleToCpp env (Module _ mn imps _ foreigns decls) = do
445 literalToBinderCpp varName done (StringLiteral str) =
445 literalToBinderCpp varName done (StringLiteral str) =
446− return [CppIfElse (CppBinary Equal (CppCast stringType $ CppVar varName)
446+ return [CppIfElse (CppBinary Equal (CppVar varName)
447 (CppStringLiteral str))
447 (CppStringLiteral str))
448 (CppBlock done)
448 (CppBlock done)