From 0a98db52957dfbe409027e035e8b631fbc913667 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Thu, 15 Jan 2009 20:59:37 +0000
Subject: [PATCH] Changed pshow on CompState (which caused errors) to plain
 show, by adding a Show instance to CompState

---
 data/CompState.hs | 2 +-
 pass/Pass.hs      | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/data/CompState.hs b/data/CompState.hs
index 969decb..6099741 100644
--- a/data/CompState.hs
+++ b/data/CompState.hs
@@ -125,7 +125,7 @@ data CompState = CompState {
     csUnifyId :: Int,
     csWarnings :: [WarningReport]
   }
-  deriving (Data, Typeable)
+  deriving (Data, Typeable, Show)
 
 emptyState :: CompState
 emptyState = CompState {
diff --git a/pass/Pass.hs b/pass/Pass.hs
index 4a5f3bf..e28bc93 100644
--- a/pass/Pass.hs
+++ b/pass/Pass.hs
@@ -173,8 +173,8 @@ debugAST p
           veryDebug $ pshow p
           veryDebug $ "}}}"
           veryDebug $ "{{{ State"
-          ps <- get
-          veryDebug $ pshow ps
+          ps <- getCompState
+          veryDebug $ show ps
           veryDebug $ "}}}"
 
 -- | Transform the 'A.Only' items in a 'A.Structured'.