successes :: [GeniResult] -> [GeniSuccess]
successes xs = [ s | GSuccess s <- xs ]
successes :: [GeniResult] -> [GeniSuccess]
successes xs = [ s | GSuccess s <- xs ]
successes xs = [ s | GSuccess s <- xs ]