git.iko.soy/typeable/xml-isogen
on master help sign in
Include digits in the auto-gerenated prefix
2eef81fmniip
src/Data/THGen/XML/Internal.hs+1−1
compare with master
unifiedsplit
@@ -183,7 +183,7 @@ instance IsString ExhaustivenessName where
183 fromString strName = ExhaustivenessName strName NonExhaustive
183 fromString strName = ExhaustivenessName strName NonExhaustive
184
184
185makeNamePrefix :: String -> String
185makeNamePrefix :: String -> String
186−makeNamePrefix = map C.toLower . filter C.isUpper
186+makeNamePrefix = map C.toLower . filter (\c -> C.isUpper c || C.isDigit c)
187
187
188funSimple :: TH.Name -> TH.ExpQ -> TH.DecQ
188funSimple :: TH.Name -> TH.ExpQ -> TH.DecQ
189funSimple name body = TH.funD name [ TH.clause [] (TH.normalB body) [] ]
189funSimple name body = TH.funD name [ TH.clause [] (TH.normalB body) [] ]