Qualify "empty".

Data.Generic exports "empty" as well in GHC 7.0.
This commit is contained in:
Adam Sampson 2011-07-20 09:54:20 +00:00
parent 97625082ea
commit 476906f5be

View File

@ -125,7 +125,7 @@ doPattern p@(Match c ps) =
--It's a string:
then doString (showStringPattern folded)
--It's some other kind of list:
else doList (mkQ empty doPattern) folded
else doList (mkQ Text.PrettyPrint.HughesPJ.empty doPattern) folded
--It's neither a list nor a tuple:
else parens $ (text (showConstr c)) $+$ (sep items)
where