Capitalize "MqttClient", "RemoteClientMethodMap", and "Client"

so that when they are incorporated Haskell names they retain the same capitalization whe built with proto3-suite-0.5.0 as they did with earlier bersions of proto3-suite.
awakesecurity · Jul 8, 2022 · ab569ab · ab569ab
1 parent e6d40f3
commit ab569ab
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/Network/GRPC/MQTT/TH/Client.hs b/src/Network/GRPC/MQTT/TH/Client.hs
@@ -48,7 +48,7 @@ import Turtle (FilePath)
 mqttClientFuncs :: Turtle.FilePath -> Batched -> Q [Dec]
 mqttClientFuncs fp defaultBatchedStream = fmap concat $
   forEachService fp defaultBatchedStream $ \serviceName serviceMethods -> do
-    clientFuncName <- mkName <$> prefixedMethodName serviceName "mqttClient"
+    clientFuncName <- mkName <$> prefixedMethodName serviceName "MqttClient"
     lift $ clientService clientFuncName (mkName serviceName) [(a, batched) | (a, batched, _, _) <- serviceMethods]
 
 clientService :: Name -> Name -> [(String, Batched)] -> DecsQ

diff --git a/src/Network/GRPC/MQTT/TH/RemoteClient.hs b/src/Network/GRPC/MQTT/TH/RemoteClient.hs
@@ -43,8 +43,8 @@ import Turtle (FilePath)
 mqttRemoteClientMethodMap :: Turtle.FilePath -> Batched -> Q [Dec]
 mqttRemoteClientMethodMap fp defaultBatchedStream = fmap concat $
   forEachService fp defaultBatchedStream $ \serviceName serviceMethods -> do
-    clientFuncName <- mkName <$> prefixedMethodName serviceName "remoteClientMethodMap"
-    grpcClientName <- mkName <$> prefixedMethodName serviceName "client"
+    clientFuncName <- mkName <$> prefixedMethodName serviceName "RemoteClientMethodMap"
+    grpcClientName <- mkName <$> prefixedMethodName serviceName "Client"
     lift $ rcMethodMap clientFuncName grpcClientName serviceMethods
 
 rcMethodMap :: Name -> Name -> [(String, Batched, ExpQ, Name)] -> DecsQ