suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Neil Brown 2009-01-15 20:59:37 +00:00
parent e20671e44f
commit 0a98db5295
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
data/CompState.hs
View File

@ -125,7 +125,7 @@ data CompState = CompState {
csUnifyId :: Int, csUnifyId :: Int,
csWarnings :: [WarningReport] csWarnings :: [WarningReport]
} }
deriving (Data, Typeable) deriving (Data, Typeable, Show)
emptyState :: CompState emptyState :: CompState
emptyState = CompState { emptyState = CompState {

4
pass/Pass.hs
View File

@ -173,8 +173,8 @@ debugAST p
veryDebug $ pshow p veryDebug $ pshow p
veryDebug $ "}}}" veryDebug $ "}}}"
veryDebug $ "{{{ State" veryDebug $ "{{{ State"
ps <- get ps <- getCompState
veryDebug $ pshow ps veryDebug $ show ps
veryDebug $ "}}}" veryDebug $ "}}}"
-- | Transform the 'A.Only' items in a 'A.Structured'. -- | Transform the 'A.Only' items in a 'A.Structured'.