diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-05-30 11:47:40 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-05-30 11:47:40 +0200 |
| commit | f04790b6721a571328938a7e6e2543ac84f3ed1a (patch) | |
| tree | 57a5a0903835a2615bc44c20872508d9cdfcd59b /src/Main.hs | |
| parent | 2cba3257d376b613f315e2472d13123fff680944 (diff) | |
| download | stylish-haskell-f04790b6721a571328938a7e6e2543ac84f3ed1a.tar.gz | |
Add a Stylish catalog
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/src/Main.hs b/src/Main.hs index 23672aa..4781ffc 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -6,15 +6,14 @@ module Main -------------------------------------------------------------------------------- -import Data.Maybe (listToMaybe) +import qualified Data.Map as M +import Data.Maybe (catMaybes, listToMaybe) import System.Console.CmdArgs -------------------------------------------------------------------------------- import StylishHaskell -import qualified StylishHaskell.Stylish.Imports -import qualified StylishHaskell.Stylish.LanguagePragmas -import qualified StylishHaskell.Stylish.TrailingWhitespace +import StylishHaskell.Stylish.Catalog -------------------------------------------------------------------------------- @@ -40,9 +39,9 @@ main = do contents <- maybe getContents readFile filePath putStr $ unlines $ chainStylish filePath filters $ lines contents where - filters = - [ StylishHaskell.Stylish.Imports.stylish - , StylishHaskell.Stylish.LanguagePragmas.stylish - -- , StylishHaskell.Tabs.stylish - , StylishHaskell.Stylish.TrailingWhitespace.stylish + filters = catMaybes $ map (`M.lookup` catalog) + [ "Imports" + , "LanguagePragmas" + -- , "Tabs" + , "TrailingWhitespace" ] |