on develop help sign in
Ensuring devstorage is correctly named
commitb0d0f3df0a61cac4857c67f99dfaa9842d208376 authorBrendan Hay <brendan.g.hay@gmail.com> dateSun 27 Mar 2016, 10:08 (11 years ago) parent3e22577
2 files changed+2−1
gen/src/Gen/Text.hs+1 gen/src/Gen/Types/Schema.hs+1−1
gen/src/Gen/Text.hs+1
@@ -276,6 +276,7 @@ upperAcronym x = Fold.foldl' (flip (uncurry RE.replaceAll)) x xs
276276 , ("proper", "Proper")
277277 , ("publish", "Publish")
278278 , ("query", "Query")
279+ , ("queue", "Queue")
279280 , ("resource", "Resource")
280281 , ("round", "Round")
281282 , ("sample", "Sample")
gen/src/Gen/Types/Schema.hs+1−1
@@ -459,7 +459,7 @@ scopeName s k = Text.unpack . lowerHead . lowerFirstAcronym $
459459
460460 named x
461461 | x == lower = pascal
462− | otherwise = replaceAll (upperHead (upperAcronym x)) special
462+ | otherwise = upperHead (upperAcronym (replaceAll x special))
463463
464464 pascal = toPascal (_sCanonicalName s)
465465 lower = Text.toLower (_sCanonicalName s)