From ba3870f08357273b89d343e360ed9fa49e3c12bb Mon Sep 17 00:00:00 2001 From: Daniel Burrows Date: Thu, 26 Mar 2009 07:50:47 -0700 Subject: Make the log parser strict in the parse state, just to be safe. --- tools/resolver-visualize/Resolver/Log.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tools') diff --git a/tools/resolver-visualize/Resolver/Log.hs b/tools/resolver-visualize/Resolver/Log.hs index 5c741648..3927e69a 100644 --- a/tools/resolver-visualize/Resolver/Log.hs +++ b/tools/resolver-visualize/Resolver/Log.hs @@ -189,7 +189,7 @@ data LogParseState = LogParseState { -- | The state of the parser; we magically know that this -- contains intern sets that should be shared over all parse -- steps. - logParseParseState :: ParseState, + logParseParseState :: !ParseState, -- | All the steps in the file, in reverse order. The first -- element in this list is the step currently being parsed (if -- any). -- cgit v1.2.3