From dfd42bade24a9f9288c955c1cdcf3f023d1d56a7 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Tue, 5 May 2015 14:06:20 +0000
Subject: [PATCH] GF.Haskell: small pretty printing improvement

---
 src/compiler/GF/Haskell.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/GF/Haskell.hs b/src/compiler/GF/Haskell.hs
index 55613c95c..e2156ac5d 100644
--- a/src/compiler/GF/Haskell.hs
+++ b/src/compiler/GF/Haskell.hs
@@ -142,5 +142,5 @@ instance PPA Pat where
       VarP x -> pp x
       Lit s -> pp s
       ConP c [] -> pp c
-      AsP x p -> x<>"@"<>parens p
+      AsP x p -> x<>"@"<>ppA p
       _ -> parens p