@@ -421,8 +421,7 @@ translateExpression modname (SCase var cases) =
421translateExpression _ (SCon i name vars) =
421translateExpression _ (SCon i name vars) =
422 concat [ "new __IDR__.Con("
422 concat [ "new __IDR__.Con("
425− , '\'' : translateQualifiedName name ++ "\',["
426 , intercalate "," $ map translateVariableName vars
425 , intercalate "," $ map translateVariableName vars