[ fix agda#317 ] Add parens around infix where left argument is anoth…

…er infix with lambda RHS

src/Agda2Hs/HsUtils.hs

@@ -251,9 +251,14 @@ insertPars fixs = \case
     needParen _ Nothing _ = True  -- If we don't know, add parens
     needParen _ _ Nothing = True
 
-    parL topOp = \case
-      e@Lambda{} -> Paren () e 
-      e -> par topOp (needParen (AssocLeft () /=)) e
+    needParenExpr (InfixApp _ _ _ e2) = needParenExpr e2
+    needParenExpr Lambda{} = True
+    needParenExpr _ = False
+
+    parL topOp e =
+      if needParenExpr e
+      then Paren () e
+      else par topOp (needParen (AssocLeft () /=)) e
     parR topOp = par topOp (needParen (AssocRight () /=))
 
     par topOp need e@(InfixApp _ _ op _)

test/AllTests.agda

@@ -84,6 +84,7 @@ import Issue301
 import Issue305
 import Issue302
 import Issue309
+import Issue317
 
 {-# FOREIGN AGDA2HS
 import Issue14
@@ -165,4 +166,5 @@ import Issue301
 import Issue305
 import Issue302
 import Issue309
+import Issue317
 #-}

test/Issue317.agda

@@ -0,0 +1,11 @@
+open import Haskell.Prelude
+
+record D : Set where
+  constructor C
+  field unC : Int
+open D public
+{-# COMPILE AGDA2HS D #-}
+
+test : D → D
+test d = C ∘ unC $ d
+{-# COMPILE AGDA2HS test #-}

test/golden/AllTests.hs

@@ -79,4 +79,5 @@ import Issue301
 import Issue305
 import Issue302
 import Issue309
+import Issue317
 

test/golden/Issue317.hs

@@ -0,0 +1,7 @@
+module Issue317 where
+
+data D = C{unC :: Int}
+
+test :: D -> D
+test d = (C . \ r -> unC r) $ d
+