QuickFind Haskell