Merge pull request #22 from typeable/digits
Include digits in the auto-gerenated prefix
commitaa1329cfa02b17aa3eca16807850b9163697f3ba
authorYuras <shumovichy@gmail.com>
dateWed 5 Feb 2020, 12:47 (7 years ago)
parentbb8d0082eef81f
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) [] ]