hlint hack.

This commit is contained in:
Kazu Yamamoto
2014-04-21 16:12:30 +09:00
parent a1d33b39d3
commit 152b218813
3 changed files with 4 additions and 9 deletions

View File

@@ -70,7 +70,7 @@ problematicPackages = [
]
attachPackageIds :: [Package] -> [PackageBaseName] -> [Package]
attachPackageIds pkgs = catMaybes . fmap (flip lookup3 pkgs)
attachPackageIds pkgs = catMaybes . fmap (`lookup3` pkgs)
lookup3 :: Eq a => a -> [(a,b,c)] -> Maybe (a,b,c)
lookup3 _ [] = Nothing