diff -rN old-happy/templates/GLR_Lib.lhs new-happy/templates/GLR_Lib.lhs
46c46
< >import Data.Map
---
> >import qualified Data.Map as Map
116a117,119
> #if __GLASGOW_HASKELL__ >= 603
> >type Forest       = Map.Map ForestId [Branch]
> #else
117a121
> #endif
143a148,150
> #if __GLASGOW_HASKELL__ >= 603
> >       ns_map = Map.toList f 
> #else
144a152
> #endif
153a162,164
> #if __GLASGOW_HASKELL__ >= 603
> > = case runST Map.empty [0..] (tp toks) of
> #else
154a166
> #endif
292a305,307
> #if __GLASGOW_HASKELL__ >= 603
> > = chgS $ \f -> ((), Map.insert i [] f)
> #else
293a309
> #endif
303a320,325
> #if __GLASGOW_HASKELL__ >= 603
> >       case Map.lookup i f of 
> >         Nothing               -> chgS $ \f -> (False, Map.insert i [b] f)   
> >         Just bs | b `elem` bs -> return True
> >                 | otherwise   -> chgS $ \f -> (True,  Map.insert i (b:bs) f)
> #else
308c330
< 
---
> #endif
313a336,338
> #if __GLASGOW_HASKELL__ >= 603
> > = useS $ \s -> Map.findWithDefault no_such_node i s
> #else
314a340
> #endif