- ; return [integer_ty, doubleTy] }
- ; string_ty <- tcMetaTy stringTyConName
- ; ovlStr <- doptM Opt_OverloadedStrings
- -- XXX This should not be added unconditionally, but the default declaration stuff
- -- is too wired to Num for me to understand. /LA
- ; let default_str_tys = default_tys ++ if ovlStr then [string_ty] else []
+ ; string_ty <- tcMetaTy stringTyConName
+ ; ovl_str <- doptM Opt_OverloadedStrings
+ ; if ovl_str -- Add String if -foverloaded-strings
+ then return [integer_ty,doubleTy,string_ty]
+ else return [integer_ty,doubleTy] }
+