on develop help sign in
Ensuring devstorage is correctly named
b0d0f3dBrendan Hay
gen/src/Gen/Text.hs+1
@@ -276,6 +276,7 @@ upperAcronym x = Fold.foldl' (flip (uncurry RE.replaceAll)) x xs
276 , ("proper", "Proper")
276 , ("proper", "Proper")
277 , ("publish", "Publish")
277 , ("publish", "Publish")
278 , ("query", "Query")
278 , ("query", "Query")
279+ , ("queue", "Queue")
279 , ("resource", "Resource")
280 , ("resource", "Resource")
280 , ("round", "Round")
281 , ("round", "Round")
281 , ("sample", "Sample")
282 , ("sample", "Sample")
gen/src/Gen/Types/Schema.hs+1−1
@@ -459,7 +459,7 @@ scopeName s k = Text.unpack . lowerHead . lowerFirstAcronym $
459
459
460 named x
460 named x
461 | x == lower = pascal
461 | x == lower = pascal
462− | otherwise = replaceAll (upperHead (upperAcronym x)) special
462+ | otherwise = upperHead (upperAcronym (replaceAll x special))
463
463
464 pascal = toPascal (_sCanonicalName s)
464 pascal = toPascal (_sCanonicalName s)
465 lower = Text.toLower (_sCanonicalName s)
465 lower = Text.toLower (_sCanonicalName s)