- extra | rdr_name == forall_tv_RDR
- = vcat [ptext (sLit "Perhaps you intended to use -XRankNTypes or similar flag"),
- ptext (sLit "to enable explicit-forall syntax: forall <tvs>. <type>?")]
- | otherwise = empty
+ extra | rdr_name == forall_tv_RDR = perhapsForallMsg
+ | otherwise = empty
+
+perhapsForallMsg :: SDoc
+perhapsForallMsg
+ = vcat [ ptext (sLit "Perhaps you intended to use -XRankNTypes or similar flag")
+ , ptext (sLit "to enable explicit-forall syntax: forall <tvs>. <type>")]