From da8de1b907440c7c2d4b9e02c80d0db147c42d38 Mon Sep 17 00:00:00 2001
From: Rob Rix <robrix@github.com>
Date: Wed, 26 Jun 2019 14:13:33 -0400
Subject: [PATCH] Define unP pointfully.

---
 semantic-core/src/Data/Core/Pretty.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/semantic-core/src/Data/Core/Pretty.hs b/semantic-core/src/Data/Core/Pretty.hs
index c4afa3770..71c91c078 100644
--- a/semantic-core/src/Data/Core/Pretty.hs
+++ b/semantic-core/src/Data/Core/Pretty.hs
@@ -106,7 +106,7 @@ prettify' root style = unP 0 . gfold var let' seq' lam app unit bool if' string
         k (S n) = K ("S" <> unP 0 n)
 
         p max b = P $ \ actual -> encloseIf (actual > max) (symbol "(") (symbol ")") b
-        unP n = ($ n) . getP
+        unP n f = getP f n
 
         konst = P . const
         lambda = case style of