Remove redundant ^.

google · Oct 9, 2024 · 4980fe3 · 4980fe3
1 parent 6efa15d
commit 4980fe3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/proto-lens-protoc/app/Data/ProtoLens/Compiler/Generate/Encoding.hs b/proto-lens-protoc/app/Data/ProtoLens/Compiler/Generate/Encoding.hs
@@ -371,7 +371,7 @@ unknownFieldCase ::
         loop (over unknownFields (\!t -> y:t) x) ...
 -}
 unknownFieldCase info loop x = match [wire] $ do' $
-    [ strictP y <-- if messageDescriptor info ^. #options ^. #messageSetWireFormat
+    [ strictP y <-- if messageDescriptor info ^. #options . #messageSetWireFormat
         then var "Data.ProtoLens.Encoding.Wire.parseMessageSetTaggedValueFromWire" @@ wire
         else var "Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire" @@ wire
     ]
@@ -458,7 +458,7 @@ generatedBuilder :: MessageInfo OccNameStr -> HsExpr'
 generatedBuilder m =
     lambda [x] $ foldMapExp $ map (buildPlainField x) (messageFields m)
                                 ++ map (buildOneofField x) (messageOneofFields m)
-                            ++ [if messageDescriptor m ^. #options ^. #messageSetWireFormat
+                            ++ [if messageDescriptor m ^. #options . #messageSetWireFormat
                                   then buildUnknownMessageSet x else buildUnknown x]
                             ++ buildGroupEnd
   where