Fix to-cabal script

This commit is contained in:
Michael Snoyman 2012-04-23 15:25:11 +03:00
parent 82cf5d5b61
commit ed9cafbf8f

View File

@ -3,7 +3,7 @@ import Control.Applicative ((<$>))
main = do
pkgs <- map (intercalate " == ")
. filter (\xs -> not $ ["parsec", "text"] `isPrefixOf` xs)
. filter (\xs -> not $ any (`isPrefixOf` xs) $ map return ["parsec", "text", "transformers", "mtl"])
. map words
. filter (not . null)
. lines