On Thu, May 12, 2011 at 2:04 PM, Stefan Kersten <s...@k-hornz.de> wrote:
> extractModules = sort . nub . everything (++) ([] `mkQ` f)
>     where f (NameQ x) = [modString x]
>           f (NameG _ _ x) = [modString x]
>           f _ = []

Minor nitpick:  instead of doing 'sort . nub', please use 'import
qualified Data.Set as S' and do 'S.toAscList . S.fromList'.  This
should be a lot faster.

Cheers, =)

-- 
Felipe.

_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to