- startlist = dropWhile (\((x,_),_) -> x < i) insns
- (Just ((_, Just endblock),_), is) = takeWhilePlusOne validins startlist
- insonly = snd $ unzip is
+ startlist = dropWhile (\(x,_,_) -> x < i) insns
+ (Just (_, Just endblock, _), is) = takeWhilePlusOne validins startlist
+ (_, _, insonly) = unzip3 is