From d5b4230d6dbee8c03eedf8d181dfa2badf1a954b Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 22 Sep 2004 20:42:21 +0000
Subject: making parsing ImperC work

---
 src/GF/Grammar/PrGrammar.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/GF/Grammar')

diff --git a/src/GF/Grammar/PrGrammar.hs b/src/GF/Grammar/PrGrammar.hs
index c49553425..ec01cdab5 100644
--- a/src/GF/Grammar/PrGrammar.hs
+++ b/src/GF/Grammar/PrGrammar.hs
@@ -168,6 +168,7 @@ instance Print Val where
   prt (VClos env e) = case e of
     Meta _ -> prt_ e ++ prEnv env
     _      -> prt_ e ---- ++ prEnv env ---- for debugging
+  prt VType = "Type"
  
 prv1 v = case v of
   VApp _ _  -> prParenth $ prt v
-- 
cgit v1.2.3