Permalink
Browse files

fix a bug

  • Loading branch information...
1 parent 892688f commit 9da777b0a8d44dde088c8e7fecaa9b66119f327c @simonmar committed Jul 11, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/DFAMin.hs
View
@@ -113,7 +113,7 @@ groupEquivStates DFA { dfa_states = statemap }
incoming :: Int -> IntSet -> IntSet
incoming i a = IS.fromList (concat ss)
where
- map1 = IM.findWithDefault (error "go1") i bigmap
+ map1 = IM.findWithDefault IM.empty i bigmap
ss = [ IM.findWithDefault [] s map1
| s <- IS.toList a ]

0 comments on commit 9da777b

Please sign in to comment.