Include digits in the auto-gerenated prefix
commit2eef81f467bc7dd69bf2a64c64087500f8eecbe0
authormniip <mniip@mniip.com>
dateFri 6 Dec 2019, 07:48 (7 years ago)
parentbb8d008
src/Data/THGen/XML/Internal.hs+1−1
@@ -183,7 +183,7 @@ instance IsString ExhaustivenessName where
183183 fromString strName = ExhaustivenessName strName NonExhaustive
184184
185185makeNamePrefix :: String -> String
186−makeNamePrefix = map C.toLower . filter C.isUpper
186+makeNamePrefix = map C.toLower . filter (\c -> C.isUpper c || C.isDigit c)
187187
188188funSimple :: TH.Name -> TH.ExpQ -> TH.DecQ
189189funSimple name body = TH.funD name [ TH.clause [] (TH.normalB body) [] ]