github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 16:02:43 +03:00
Code Issues Projects Releases Wiki Activity

Define unP pointfully.

Browse Source
This commit is contained in:
Rob Rix 2019-06-26 14:13:33 -04:00
parent b9f286bad4
commit da8de1b907
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
semantic-core/src/Data/Core/Pretty.hs
View File

@ -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