From 249fd23e75183129e472dc9a30c4a7c645121525 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Sun, 6 Apr 2008 02:59:34 +0000
Subject: [PATCH] The type context is now used by passes, not the parser.

---
 data/CompState.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/data/CompState.hs b/data/CompState.hs
index e00e870..6bc46a0 100644
--- a/data/CompState.hs
+++ b/data/CompState.hs
@@ -84,9 +84,9 @@ data CompState = CompState {
     csNames :: Map String A.NameDef,
     csUnscopedNames :: Map String String,
     csNameCounter :: Int,
-    csTypeContext :: [Maybe A.Type],
 
     -- Set by passes
+    csTypeContext :: [Maybe A.Type],
     csNonceCounter :: Int,
     csFunctionReturns :: Map String [A.Type],
     csPulledItems :: [[PulledItem]],
@@ -115,8 +115,8 @@ emptyState = CompState {
     csNames = Map.empty,
     csUnscopedNames = Map.empty,
     csNameCounter = 0,
-    csTypeContext = [],
 
+    csTypeContext = [],
     csNonceCounter = 0,
     csFunctionReturns = Map.empty,
     csPulledItems = [],
@@ -327,4 +327,4 @@ ghostVarPrefix = "##"
 
 -- | A suffix put on all ghost variables, such as Rain's timers
 ghostVarSuffix :: String
-ghostVarSuffix = "_##"
\ No newline at end of file
+ghostVarSuffix = "_##"