Changed pshow on CompState (which caused errors) to plain show, by adding a Show instance to CompState

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 {

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'.