Ensuring correct casing of kgsearch identifiers
commit6adfa374f9f1246f54905d31d1e1ddc5be21a765
authorBrendan Hay <brendan.g.hay@gmail.com>
dateFri 28 Oct 2016, 08:22 (10 years ago)
parenta80992c
core/src/Network/Google/Prelude.hs+1−1
@@ -27,7 +27,7 @@ import GHC.Generics as Export (Generic)
2727import Network.HTTP.Client as Export (RequestBody)
2828import Numeric.Natural as Export (Natural)
2929import Prelude as Export hiding (product)
30−import Servant.API as Export hiding (getResponse)
30+import Servant.API as Export hiding (Headers, getResponse)
3131import Servant.Utils.Links as Export hiding (Link)
3232import Web.HttpApiData as Export (FromHttpApiData (..), ToHttpApiData (..))
3333
gen/src/Gen/Text.hs+1
@@ -237,6 +237,7 @@ upperAcronym x = Fold.foldl' (flip (uncurry RE.replaceAll)) x xs
237237 , ("Xml", "XML")
238238 , ("Youtube", "YouTube")
239239 , ("youtube", "YouTube")
240+ , ("kgs", "KGS")
240241
241242 , ("([^a])data", "$1Data")
242243 , ("([^ypn])load", "$1Load")