ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-03 04:40:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

king: my god, I shall flog the man responsible for this!

Browse Source
This commit is contained in:
pilfer-pandex 2021-07-27 00:05:13 -04:00
parent 51373a0976
commit 32a4c8a375
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkg/hs/urbit-noun-core/lib/Urbit/Noun/TH.hs
View File

@ -120,7 +120,7 @@ addCostCenter :: String -> Exp -> Exp
addCostCenter tag exp =
LetE [ValD (VarP nom) (NormalB exp) []] (VarE nom)
where
nom = mkName $ "scc_" ++ tag
nom = mkName $ "scc_" ++ filter C.isAlphaNum tag
deriveFromNoun :: Name -> Q [Dec]
deriveFromNoun tyName = do