~safinaskar/check-cfg-ambiguity

c60754dcb38a6026a0d5c5a92ed268b81090019a — Askar Safin 1 year, 5 months ago 62e1de7
Trivial change
1 files changed, 1 insertions(+), 1 deletions(-)

M CheckCFGAmbiguity.hs
M CheckCFGAmbiguity.hs => CheckCFGAmbiguity.hs +1 -1
@@ 135,7 135,7 @@ lowLevelTestAmbiguity (Grammar g) start count = case Data.Map.member start g of 
        allWordsV <- readSTRef allWords;
        let { allWordsV2 = Data.Set.union allWordsV (Data.Set.fromList currWordsV2); };
        writeSTRef allWords allWordsV2;
        when (Data.Set.size allWordsV2 /= (Data.Set.size allWordsV + length currWordsV2)) $ writeSTRef collision True;
        when (Data.Set.size allWordsV2 /= Data.Set.size allWordsV + length currWordsV2) $ writeSTRef collision True;
      };
      iV <- readSTRef i;
      writeSTRef i (iV + 1);