From 6c3eae5d5e88117cf80b4b35c9bae4ba3ebbe94c Mon Sep 17 00:00:00 2001 From: Tim Chevalier Date: Mon, 24 Mar 2008 01:43:11 +0000 Subject: [PATCH] Fix primMname in External Core printer My earlier changes broke printing of function types in .hcr files. In other words: the z-encoding must die. --- compiler/coreSyn/ExternalCore.lhs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/compiler/coreSyn/ExternalCore.lhs b/compiler/coreSyn/ExternalCore.lhs index 49a7753..86a0d03 100644 --- a/compiler/coreSyn/ExternalCore.lhs +++ b/compiler/coreSyn/ExternalCore.lhs @@ -81,7 +81,9 @@ type Qual t = (Mname,t) type Id = String primMname :: Mname -primMname = "base:GHC.Prim" +-- For truly horrible reasons, this must be z-encoded. +-- With any hope, the z-encoding will die soon. +primMname = "ghc-prim:GHCziPrim" tcArrow :: Qual Tcon tcArrow = (primMname, "(->)") -- 1.7.10.4