summaryrefslogtreecommitdiff
path: root/src/Text/XML/HaXml/Schema/PrettyHaskell.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/XML/HaXml/Schema/PrettyHaskell.hs')
-rw-r--r--src/Text/XML/HaXml/Schema/PrettyHaskell.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/XML/HaXml/Schema/PrettyHaskell.hs b/src/Text/XML/HaXml/Schema/PrettyHaskell.hs
index 11996e8..2dbfcba 100644
--- a/src/Text/XML/HaXml/Schema/PrettyHaskell.hs
+++ b/src/Text/XML/HaXml/Schema/PrettyHaskell.hs
@@ -343,7 +343,7 @@ ppHighLevelDecl nx (EnumSimpleType t is comm) =
where
item (i,c) = (ppUnqConId nx t <> text "_" <> ppConId nx i)
$$ ppComment After c
- parseItem (i,_) = text "do isWord \"" <> ppXName i <> text "\"; return"
+ parseItem (i,_) = text "do literal \"" <> ppXName i <> text "\"; return"
<+> (ppUnqConId nx t <> text "_" <> ppConId nx i)
enumText (i,_) = text "simpleTypeText"
<+> (ppUnqConId nx t <> text "_" <> ppConId nx i)