Skip to content
Snippets Groups Projects
Commit faee968e authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix build for 7.6 branch

parent f7d9e72f
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
compiler/coreSyn/PprExternalCore.lhs
+ 0
− 2
View file @ faee968e
...@@ -117,8 +117,6 @@ pty (NthCoercion n t) = ...@@ -117,8 +117,6 @@ pty (NthCoercion n t) =
sep [text "%nth", int n, paty t] sep [text "%nth", int n, paty t]
pty (InstCoercion t1 t2) = pty (InstCoercion t1 t2) =
sep [text "%inst", paty t1, paty t2] sep [text "%inst", paty t1, paty t2]
pty (AxiomCoercion tc i cos) =
pqname tc <+> int i <+> sep (map paty cos)
pty ty@(Tapp {}) = pappty ty [] pty ty@(Tapp {}) = pappty ty []
pty ty@(Tvar {}) = paty ty pty ty@(Tvar {}) = paty ty
pty ty@(Tcon {}) = paty ty pty ty@(Tcon {}) = paty ty
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment