diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-06-05 09:07:18 +0200 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-06-05 09:07:18 +0200 |
commit | 8f2f4a6d9359070fba62e23776d23f02743e0f50 (patch) | |
tree | 7d6857831af382171bee8399ae0fa5593ca7ea77 | |
parent | 7ac3d3b3eae45b9db69980bc8964f2d3fa37fe82 (diff) | |
download | stylish-haskell-8f2f4a6d9359070fba62e23776d23f02743e0f50.tar.gz |
Rename Stylish to Step
-rw-r--r-- | .stylish-haskell.yaml | 2 | ||||
-rw-r--r-- | src/Main.hs | 4 | ||||
-rw-r--r-- | src/StylishHaskell.hs | 14 | ||||
-rw-r--r-- | src/StylishHaskell/Config.hs | 48 | ||||
-rw-r--r-- | src/StylishHaskell/Parse.hs | 2 | ||||
-rw-r--r-- | src/StylishHaskell/Step.hs (renamed from src/StylishHaskell/Stylish.hs) | 6 | ||||
-rw-r--r-- | src/StylishHaskell/Step/Imports.hs (renamed from src/StylishHaskell/Stylish/Imports.hs) | 14 | ||||
-rw-r--r-- | src/StylishHaskell/Step/LanguagePragmas.hs (renamed from src/StylishHaskell/Stylish/LanguagePragmas.hs) | 10 | ||||
-rw-r--r-- | src/StylishHaskell/Step/Tabs.hs (renamed from src/StylishHaskell/Stylish/Tabs.hs) | 10 | ||||
-rw-r--r-- | src/StylishHaskell/Step/TrailingWhitespace.hs (renamed from src/StylishHaskell/Stylish/TrailingWhitespace.hs) | 10 | ||||
-rw-r--r-- | src/StylishHaskell/Step/UnicodeSyntax.hs (renamed from src/StylishHaskell/Stylish/UnicodeSyntax.hs) | 12 | ||||
-rw-r--r-- | src/StylishHaskell/Util.hs | 2 | ||||
-rw-r--r-- | stylish-haskell.cabal | 22 | ||||
-rw-r--r-- | tests/StylishHaskell/Step/Imports/Tests.hs (renamed from tests/StylishHaskell/Stylish/Imports/Tests.hs) | 10 | ||||
-rw-r--r-- | tests/StylishHaskell/Step/LanguagePragmas/Tests.hs (renamed from tests/StylishHaskell/Stylish/LanguagePragmas/Tests.hs) | 14 | ||||
-rw-r--r-- | tests/StylishHaskell/Step/Tabs/Tests.hs (renamed from tests/StylishHaskell/Stylish/Tabs/Tests.hs) | 8 | ||||
-rw-r--r-- | tests/StylishHaskell/Step/TrailingWhitespace/Tests.hs (renamed from tests/StylishHaskell/Stylish/TrailingWhitespace/Tests.hs) | 8 | ||||
-rw-r--r-- | tests/StylishHaskell/Step/UnicodeSyntax/Tests.hs (renamed from tests/StylishHaskell/Stylish/UnicodeSyntax/Tests.hs) | 8 | ||||
-rw-r--r-- | tests/StylishHaskell/Tests/Util.hs | 10 | ||||
-rw-r--r-- | tests/TestSuite.hs | 22 |
20 files changed, 118 insertions, 118 deletions
diff --git a/.stylish-haskell.yaml b/.stylish-haskell.yaml index a0c7cfb..e86b2bf 100644 --- a/.stylish-haskell.yaml +++ b/.stylish-haskell.yaml @@ -1,4 +1,4 @@ -stylish: +steps: # Convert some ASCII sequences to their Unicode equivalents # - unicode_syntax: {} diff --git a/src/Main.hs b/src/Main.hs index 241fe33..6d44c35 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -45,6 +45,6 @@ main = do let verbose' = makeVerbose (verbose sa) conf <- loadConfig verbose' (config sa) let filePath = listToMaybe $ files sa - stylish = configStylish conf + steps = configSteps conf contents <- maybe getContents readFile filePath - putStr $ unlines $ chainStylish filePath stylish $ lines contents + putStr $ unlines $ runSteps filePath steps $ lines contents diff --git a/src/StylishHaskell.hs b/src/StylishHaskell.hs index 2aaee95..6cf769b 100644 --- a/src/StylishHaskell.hs +++ b/src/StylishHaskell.hs @@ -1,22 +1,22 @@ -------------------------------------------------------------------------------- module StylishHaskell - ( runStylish - , chainStylish + ( runStep + , runSteps ) where -------------------------------------------------------------------------------- import StylishHaskell.Parse -import StylishHaskell.Stylish +import StylishHaskell.Step -------------------------------------------------------------------------------- -runStylish :: Maybe FilePath -> Stylish -> Lines -> Lines -runStylish mfp f ls = case parseModule mfp (unlines ls) of +runStep :: Maybe FilePath -> Step -> Lines -> Lines +runStep mfp f ls = case parseModule mfp (unlines ls) of Left err -> error err -- TODO: maybe return original lines? Right module' -> f ls module' -------------------------------------------------------------------------------- -chainStylish :: Maybe FilePath -> [Stylish] -> Lines -> Lines -chainStylish mfp = foldr (flip (.)) id . map (runStylish mfp) +runSteps :: Maybe FilePath -> [Step] -> Lines -> Lines +runSteps mfp = foldr (flip (.)) id . map (runStep mfp) diff --git a/src/StylishHaskell/Config.hs b/src/StylishHaskell/Config.hs index 186165c..a4da1aa 100644 --- a/src/StylishHaskell/Config.hs +++ b/src/StylishHaskell/Config.hs @@ -23,18 +23,18 @@ import System.FilePath ((</>)) -------------------------------------------------------------------------------- -import StylishHaskell.Stylish -import qualified StylishHaskell.Stylish.Imports as Imports -import qualified StylishHaskell.Stylish.LanguagePragmas as LanguagePragmas -import qualified StylishHaskell.Stylish.Tabs as Tabs -import qualified StylishHaskell.Stylish.TrailingWhitespace as TrailingWhitespace -import qualified StylishHaskell.Stylish.UnicodeSyntax as UnicodeSyntax +import StylishHaskell.Step +import qualified StylishHaskell.Step.Imports as Imports +import qualified StylishHaskell.Step.LanguagePragmas as LanguagePragmas +import qualified StylishHaskell.Step.Tabs as Tabs +import qualified StylishHaskell.Step.TrailingWhitespace as TrailingWhitespace +import qualified StylishHaskell.Step.UnicodeSyntax as UnicodeSyntax import StylishHaskell.Verbose -------------------------------------------------------------------------------- data Config = Config - { configStylish :: [Stylish] + { configSteps :: [Step] } @@ -46,9 +46,9 @@ instance FromJSON Config where -------------------------------------------------------------------------------- defaultConfig :: Config defaultConfig = Config $ - [ Imports.stylish True - , LanguagePragmas.stylish LanguagePragmas.Vertical True - , TrailingWhitespace.stylish + [ Imports.step True + , LanguagePragmas.step LanguagePragmas.Vertical True + , TrailingWhitespace.step ] @@ -95,12 +95,12 @@ loadConfig verbose mfp = do -------------------------------------------------------------------------------- parseConfig :: A.Value -> A.Parser Config parseConfig (A.Object o) = Config - <$> (o A..: "stylish" >>= fmap concat . mapM parseStylish) + <$> (o A..: "steps" >>= fmap concat . mapM parseSteps) parseConfig _ = mzero -------------------------------------------------------------------------------- -catalog :: Map String (A.Object -> A.Parser Stylish) +catalog :: Map String (A.Object -> A.Parser Step) catalog = M.fromList [ ("imports", parseImports) , ("language_pragmas", parseLanguagePragmas) @@ -111,8 +111,8 @@ catalog = M.fromList -------------------------------------------------------------------------------- -parseStylish :: A.Value -> A.Parser [Stylish] -parseStylish val = do +parseSteps :: A.Value -> A.Parser [Step] +parseSteps val = do map' <- parseJSON val :: A.Parser (Map String A.Value) forM (M.toList map') $ \(k, v) -> case (M.lookup k catalog, v) of (Just parser, A.Object o) -> parser o @@ -130,14 +130,14 @@ parseEnum strs _ (Just k) = case lookup k strs of -------------------------------------------------------------------------------- -parseImports :: A.Object -> A.Parser Stylish -parseImports o = Imports.stylish +parseImports :: A.Object -> A.Parser Step +parseImports o = Imports.step <$> o A..:? "align" A..!= True -------------------------------------------------------------------------------- -parseLanguagePragmas :: A.Object -> A.Parser Stylish -parseLanguagePragmas o = LanguagePragmas.stylish +parseLanguagePragmas :: A.Object -> A.Parser Step +parseLanguagePragmas o = LanguagePragmas.step <$> (o A..:? "style" >>= parseEnum styles LanguagePragmas.Vertical) <*> o A..:? "remove_redundant" A..!= True where @@ -148,16 +148,16 @@ parseLanguagePragmas o = LanguagePragmas.stylish -------------------------------------------------------------------------------- -parseTabs :: A.Object -> A.Parser Stylish -parseTabs o = Tabs.stylish +parseTabs :: A.Object -> A.Parser Step +parseTabs o = Tabs.step <$> o A..:? "spaces" A..!= 8 -------------------------------------------------------------------------------- -parseTrailingWhitespace :: A.Object -> A.Parser Stylish -parseTrailingWhitespace _ = return TrailingWhitespace.stylish +parseTrailingWhitespace :: A.Object -> A.Parser Step +parseTrailingWhitespace _ = return TrailingWhitespace.step -------------------------------------------------------------------------------- -parseUnicodeSyntax :: A.Object -> A.Parser Stylish -parseUnicodeSyntax _ = return UnicodeSyntax.stylish +parseUnicodeSyntax :: A.Object -> A.Parser Step +parseUnicodeSyntax _ = return UnicodeSyntax.step diff --git a/src/StylishHaskell/Parse.hs b/src/StylishHaskell/Parse.hs index 39ac4b2..57179b1 100644 --- a/src/StylishHaskell/Parse.hs +++ b/src/StylishHaskell/Parse.hs @@ -10,7 +10,7 @@ import qualified Language.Haskell.Exts.Annotated as H -------------------------------------------------------------------------------- -import StylishHaskell.Stylish +import StylishHaskell.Step -------------------------------------------------------------------------------- diff --git a/src/StylishHaskell/Stylish.hs b/src/StylishHaskell/Step.hs index 2e4f863..facf37c 100644 --- a/src/StylishHaskell/Stylish.hs +++ b/src/StylishHaskell/Step.hs @@ -1,8 +1,8 @@ -------------------------------------------------------------------------------- -module StylishHaskell.Stylish +module StylishHaskell.Step ( Lines , Module - , Stylish + , Step ) where @@ -20,4 +20,4 @@ type Module = (H.Module H.SrcSpanInfo, [H.Comment]) -------------------------------------------------------------------------------- -type Stylish = Lines -> Module -> Lines +type Step = Lines -> Module -> Lines diff --git a/src/StylishHaskell/Stylish/Imports.hs b/src/StylishHaskell/Step/Imports.hs index 2adb911..990a2ee 100644 --- a/src/StylishHaskell/Stylish/Imports.hs +++ b/src/StylishHaskell/Step/Imports.hs @@ -1,6 +1,6 @@ -------------------------------------------------------------------------------- -module StylishHaskell.Stylish.Imports - ( stylish +module StylishHaskell.Step.Imports + ( step ) where @@ -16,7 +16,7 @@ import qualified Language.Haskell.Exts.Annotated as H -------------------------------------------------------------------------------- import StylishHaskell.Block import StylishHaskell.Editor -import StylishHaskell.Stylish +import StylishHaskell.Step import StylishHaskell.Util @@ -40,10 +40,10 @@ longestImport = maximum . map (length . importName) -- | Groups adjacent imports into larger import blocks groupAdjacent :: [H.ImportDecl LineBlock] -> [(LineBlock, [H.ImportDecl LineBlock])] -groupAdjacent = foldr step [] +groupAdjacent = foldr go [] where -- This code is ugly and not optimal, and no fucks were given. - step imp is = case break (adjacent b1 . fst) is of + go imp is = case break (adjacent b1 . fst) is of (_, []) -> (b1, [imp]) : is (xs, ((b2, imps) : ys)) -> (merge b1 b2, imp : imps) : (xs ++ ys) where @@ -106,8 +106,8 @@ prettyImportGroup align longest = -------------------------------------------------------------------------------- -stylish :: Bool -> Stylish -stylish align ls (module', _) = flip applyChanges ls +step :: Bool -> Step +step align ls (module', _) = flip applyChanges ls [ change block (prettyImportGroup align longest importGroup) | (block, importGroup) <- groups ] diff --git a/src/StylishHaskell/Stylish/LanguagePragmas.hs b/src/StylishHaskell/Step/LanguagePragmas.hs index 5b82f8d..aff767a 100644 --- a/src/StylishHaskell/Stylish/LanguagePragmas.hs +++ b/src/StylishHaskell/Step/LanguagePragmas.hs @@ -1,7 +1,7 @@ -------------------------------------------------------------------------------- -module StylishHaskell.Stylish.LanguagePragmas +module StylishHaskell.Step.LanguagePragmas ( Style (..) - , stylish + , step -- * Utilities , addLanguagePragma @@ -16,7 +16,7 @@ import qualified Language.Haskell.Exts.Annotated as H -------------------------------------------------------------------------------- import StylishHaskell.Block import StylishHaskell.Editor -import StylishHaskell.Stylish +import StylishHaskell.Step import StylishHaskell.Util @@ -64,8 +64,8 @@ prettyPragmas Compact = compactPragmas -------------------------------------------------------------------------------- -stylish :: Style -> Bool -> Stylish -stylish style removeRedundant ls (module', _) +step :: Style -> Bool -> Step +step style removeRedundant ls (module', _) | null pragmas' = ls | otherwise = applyChanges changes ls where diff --git a/src/StylishHaskell/Stylish/Tabs.hs b/src/StylishHaskell/Step/Tabs.hs index b4ad89e..df783e8 100644 --- a/src/StylishHaskell/Stylish/Tabs.hs +++ b/src/StylishHaskell/Step/Tabs.hs @@ -1,11 +1,11 @@ -------------------------------------------------------------------------------- -module StylishHaskell.Stylish.Tabs - ( stylish +module StylishHaskell.Step.Tabs + ( step ) where -------------------------------------------------------------------------------- -import StylishHaskell.Stylish +import StylishHaskell.Step -------------------------------------------------------------------------------- @@ -17,5 +17,5 @@ removeTabs spaces = concatMap removeTabs' -------------------------------------------------------------------------------- -stylish :: Int -> Stylish -stylish spaces ls _ = map (removeTabs spaces) ls +step :: Int -> Step +step spaces ls _ = map (removeTabs spaces) ls diff --git a/src/StylishHaskell/Stylish/TrailingWhitespace.hs b/src/StylishHaskell/Step/TrailingWhitespace.hs index 92301d4..9239737 100644 --- a/src/StylishHaskell/Stylish/TrailingWhitespace.hs +++ b/src/StylishHaskell/Step/TrailingWhitespace.hs @@ -1,6 +1,6 @@ -------------------------------------------------------------------------------- -module StylishHaskell.Stylish.TrailingWhitespace - ( stylish +module StylishHaskell.Step.TrailingWhitespace + ( step ) where @@ -9,7 +9,7 @@ import Data.Char (isSpace) -------------------------------------------------------------------------------- -import StylishHaskell.Stylish +import StylishHaskell.Step -------------------------------------------------------------------------------- @@ -18,5 +18,5 @@ dropTrailingWhitespace = reverse . dropWhile isSpace . reverse -------------------------------------------------------------------------------- -stylish :: Stylish -stylish ls _ = map dropTrailingWhitespace ls +step :: Step +step ls _ = map dropTrailingWhitespace ls diff --git a/src/StylishHaskell/Stylish/UnicodeSyntax.hs b/src/StylishHaskell/Step/UnicodeSyntax.hs index 7ed96e3..d60ee08 100644 --- a/src/StylishHaskell/Stylish/UnicodeSyntax.hs +++ b/src/StylishHaskell/Step/UnicodeSyntax.hs @@ -1,7 +1,7 @@ -------------------------------------------------------------------------------- {-# LANGUAGE ViewPatterns #-} -module StylishHaskell.Stylish.UnicodeSyntax - ( stylish +module StylishHaskell.Step.UnicodeSyntax + ( step ) where @@ -16,8 +16,8 @@ import qualified Language.Haskell.Exts.Annotated as H -------------------------------------------------------------------------------- import StylishHaskell.Block import StylishHaskell.Editor -import StylishHaskell.Stylish -import StylishHaskell.Stylish.LanguagePragmas (addLanguagePragma) +import StylishHaskell.Step +import StylishHaskell.Step.LanguagePragmas (addLanguagePragma) import StylishHaskell.Util @@ -119,8 +119,8 @@ between (startRow, startCol) (endRow, endCol) needle = -------------------------------------------------------------------------------- -stylish :: Stylish -stylish ls (module', _) = applyChanges changes ls +step :: Step +step ls (module', _) = applyChanges changes ls where changes = addLanguagePragma "UnicodeSyntax" module' ++ replaceAll perLine ls perLine = sort $ groupPerLine $ diff --git a/src/StylishHaskell/Util.hs b/src/StylishHaskell/Util.hs index 6154a9d..52e6323 100644 --- a/src/StylishHaskell/Util.hs +++ b/src/StylishHaskell/Util.hs @@ -18,7 +18,7 @@ import qualified Language.Haskell.Exts.Annotated as H -------------------------------------------------------------------------------- -import StylishHaskell.Stylish +import StylishHaskell.Step -------------------------------------------------------------------------------- diff --git a/stylish-haskell.cabal b/stylish-haskell.cabal index 840ccdc..0c59e0d 100644 --- a/stylish-haskell.cabal +++ b/stylish-haskell.cabal @@ -30,12 +30,12 @@ Executable stylish-haskell StylishHaskell.Config StylishHaskell.Editor StylishHaskell.Parse - StylishHaskell.Stylish - StylishHaskell.Stylish.Imports - StylishHaskell.Stylish.LanguagePragmas - StylishHaskell.Stylish.Tabs - StylishHaskell.Stylish.TrailingWhitespace - StylishHaskell.Stylish.UnicodeSyntax + StylishHaskell.Step + StylishHaskell.Step.Imports + StylishHaskell.Step.LanguagePragmas + StylishHaskell.Step.Tabs + StylishHaskell.Step.TrailingWhitespace + StylishHaskell.Step.UnicodeSyntax StylishHaskell.Util Build-depends: @@ -57,11 +57,11 @@ Test-suite stylish-haskell-tests Type: exitcode-stdio-1.0 Other-modules: - StylishHaskell.Stylish.Imports.Tests - StylishHaskell.Stylish.LanguagePragmas.Tests - StylishHaskell.Stylish.Tabs.Tests - StylishHaskell.Stylish.TrailingWhitespace.Tests - StylishHaskell.Stylish.UnicodeSyntax.Tests + StylishHaskell.Step.Imports.Tests + StylishHaskell.Step.LanguagePragmas.Tests + StylishHaskell.Step.Tabs.Tests + StylishHaskell.Step.TrailingWhitespace.Tests + StylishHaskell.Step.UnicodeSyntax.Tests StylishHaskell.Tests.Util Build-depends: diff --git a/tests/StylishHaskell/Stylish/Imports/Tests.hs b/tests/StylishHaskell/Step/Imports/Tests.hs index 848b403..e86282f 100644 --- a/tests/StylishHaskell/Stylish/Imports/Tests.hs +++ b/tests/StylishHaskell/Step/Imports/Tests.hs @@ -1,5 +1,5 @@ -------------------------------------------------------------------------------- -module StylishHaskell.Stylish.Imports.Tests +module StylishHaskell.Step.Imports.Tests ( tests ) where @@ -11,13 +11,13 @@ import Test.HUnit ((@=?)) -------------------------------------------------------------------------------- -import StylishHaskell.Stylish.Imports +import StylishHaskell.Step.Imports import StylishHaskell.Tests.Util -------------------------------------------------------------------------------- tests :: Test -tests = testGroup "StylishHaskell.Stylish.Imports.Tests" +tests = testGroup "StylishHaskell.Step.Imports.Tests" [ case01 , case02 ] @@ -40,7 +40,7 @@ input = unlines -------------------------------------------------------------------------------- case01 :: Test -case01 = testCase "case 01" $ expected @=? testStylish (stylish True) input +case01 = testCase "case 01" $ expected @=? testStep (step True) input where expected = unlines [ "module Herp where" @@ -57,7 +57,7 @@ case01 = testCase "case 01" $ expected @=? testStylish (stylish True) input -------------------------------------------------------------------------------- case02 :: Test -case02 = testCase "case 02" $ expected @=? testStylish (stylish False) input +case02 = testCase "case 02" $ expected @=? testStep (step False) input where expected = unlines [ "module Herp where" diff --git a/tests/StylishHaskell/Stylish/LanguagePragmas/Tests.hs b/tests/StylishHaskell/Step/LanguagePragmas/Tests.hs index 459575f..de03a9f 100644 --- a/tests/StylishHaskell/Stylish/LanguagePragmas/Tests.hs +++ b/tests/StylishHaskell/Step/LanguagePragmas/Tests.hs @@ -1,5 +1,5 @@ -------------------------------------------------------------------------------- -module StylishHaskell.Stylish.LanguagePragmas.Tests +module StylishHaskell.Step.LanguagePragmas.Tests ( tests ) where @@ -11,13 +11,13 @@ import Test.HUnit ((@=?)) -------------------------------------------------------------------------------- -import StylishHaskell.Stylish.LanguagePragmas +import StylishHaskell.Step.LanguagePragmas import StylishHaskell.Tests.Util -------------------------------------------------------------------------------- tests :: Test -tests = testGroup "StylishHaskell.Stylish.LanguagePragmas.Tests" +tests = testGroup "StylishHaskell.Step.LanguagePragmas.Tests" [ case01 , case02 , case03 @@ -28,7 +28,7 @@ tests = testGroup "StylishHaskell.Stylish.LanguagePragmas.Tests" -------------------------------------------------------------------------------- case01 :: Test case01 = testCase "case 01" $ - expected @=? testStylish (stylish Vertical False) input + expected @=? testStep (step Vertical False) input where input = unlines [ "{-# LANGUAGE ViewPatterns #-}" @@ -48,7 +48,7 @@ case01 = testCase "case 01" $ -------------------------------------------------------------------------------- case02 :: Test case02 = testCase "case 02" $ - expected @=? testStylish (stylish Vertical True) input + expected @=? testStep (step Vertical True) input where input = unlines [ "{-# LANGUAGE BangPatterns #-}" @@ -65,7 +65,7 @@ case02 = testCase "case 02" $ -------------------------------------------------------------------------------- case03 :: Test case03 = testCase "case 03" $ - expected @=? testStylish (stylish Vertical True) input + expected @=? testStep (step Vertical True) input where input = unlines [ "{-# LANGUAGE BangPatterns #-}" @@ -82,7 +82,7 @@ case03 = testCase "case 03" $ -------------------------------------------------------------------------------- case04 :: Test case04 = testCase "case 04" $ - expected @=? testStylish (stylish Compact False) input + expected @=? testStep (step Compact False) input where input = unlines [ "{-# LANGUAGE TypeOperators, StandaloneDeriving, DeriveDataTypeable," diff --git a/tests/StylishHaskell/Stylish/Tabs/Tests.hs b/tests/StylishHaskell/Step/Tabs/Tests.hs index 967bc50..58be7de 100644 --- a/tests/StylishHaskell/Stylish/Tabs/Tests.hs +++ b/tests/StylishHaskell/Step/Tabs/Tests.hs @@ -1,5 +1,5 @@ -------------------------------------------------------------------------------- -module StylishHaskell.Stylish.Tabs.Tests +module StylishHaskell.Step.Tabs.Tests ( tests ) where @@ -11,18 +11,18 @@ import Test.HUnit ((@=?)) -------------------------------------------------------------------------------- -import StylishHaskell.Stylish.Tabs +import StylishHaskell.Step.Tabs import StylishHaskell.Tests.Util -------------------------------------------------------------------------------- tests :: Test -tests = testGroup "StylishHaskell.Stylish.Tabs.Tests" [case01] +tests = testGroup "StylishHaskell.Step.Tabs.Tests" [case01] -------------------------------------------------------------------------------- case01 :: Test -case01 = testCase "case 01" $ expected @=? testStylish (stylish 4) input +case01 = testCase "case 01" $ expected @=? testStep (step 4) input where input = unlines [ "module Main" diff --git a/tests/StylishHaskell/Stylish/TrailingWhitespace/Tests.hs b/tests/StylishHaskell/Step/TrailingWhitespace/Tests.hs index 32efd66..bac8ce2 100644 --- a/tests/StylishHaskell/Stylish/TrailingWhitespace/Tests.hs +++ b/tests/StylishHaskell/Step/TrailingWhitespace/Tests.hs @@ -1,5 +1,5 @@ -------------------------------------------------------------------------------- -module StylishHaskell.Stylish.TrailingWhitespace.Tests +module StylishHaskell.Step.TrailingWhitespace.Tests ( tests ) where @@ -11,18 +11,18 @@ import Test.HUnit ((@=?)) -------------------------------------------------------------------------------- -import StylishHaskell.Stylish.TrailingWhitespace +import StylishHaskell.Step.TrailingWhitespace import StylishHaskell.Tests.Util -------------------------------------------------------------------------------- tests :: Test -tests = testGroup "StylishHaskell.Stylish.TrailingWhitespace.Tests" [case01] +tests = testGroup "StylishHaskell.Step.TrailingWhitespace.Tests" [case01] -------------------------------------------------------------------------------- case01 :: Test -case01 = testCase "case 01" $ expected @=? testStylish stylish input +case01 = testCase "case 01" $ expected @=? testStep step input where input = unlines [ "module Main where" diff --git a/tests/StylishHaskell/Stylish/UnicodeSyntax/Tests.hs b/tests/StylishHaskell/Step/UnicodeSyntax/Tests.hs index e618e16..9f53b58 100644 --- a/tests/StylishHaskell/Stylish/UnicodeSyntax/Tests.hs +++ b/tests/StylishHaskell/Step/UnicodeSyntax/Tests.hs @@ -1,5 +1,5 @@ -------------------------------------------------------------------------------- -module StylishHaskell.Stylish.UnicodeSyntax.Tests +module StylishHaskell.Step.UnicodeSyntax.Tests ( tests ) where @@ -11,20 +11,20 @@ import Test.HUnit ((@=?)) -------------------------------------------------------------------------------- -import StylishHaskell.Stylish.UnicodeSyntax +import StylishHaskell.Step.UnicodeSyntax import StylishHaskell.Tests.Util -------------------------------------------------------------------------------- tests :: Test -tests = testGroup "StylishHaskell.Stylish.UnicodeSyntax.Tests" +tests = testGroup "StylishHaskell.Step.UnicodeSyntax.Tests" [ case01 ] -------------------------------------------------------------------------------- case01 :: Test -case01 = testCase "case 01" $ expected @=? testStylish stylish input +case01 = testCase "case 01" $ expected @=? testStep step input where input = unlines [ "{-# LANGUAGE UnicodeSyntax #-}" -- TODO: remove diff --git a/tests/StylishHaskell/Tests/Util.hs b/tests/StylishHaskell/Tests/Util.hs index fff7703..1f163f2 100644 --- a/tests/StylishHaskell/Tests/Util.hs +++ b/tests/StylishHaskell/Tests/Util.hs @@ -1,17 +1,17 @@ module StylishHaskell.Tests.Util - ( testStylish + ( testStep ) where -------------------------------------------------------------------------------- import StylishHaskell.Parse -import StylishHaskell.Stylish +import StylishHaskell.Step -------------------------------------------------------------------------------- -testStylish :: Stylish -> String -> String -testStylish stylish str = case parseModule Nothing str of +testStep :: Step -> String -> String +testStep step str = case parseModule Nothing str of Left err -> error err - Right module' -> unlines $ stylish ls module' + Right module' -> unlines $ step ls module' where ls = lines str diff --git a/tests/TestSuite.hs b/tests/TestSuite.hs index 8f77fde..f157b8c 100644 --- a/tests/TestSuite.hs +++ b/tests/TestSuite.hs @@ -5,23 +5,23 @@ module Main -------------------------------------------------------------------------------- -import Test.Framework (defaultMain) +import Test.Framework (defaultMain) -------------------------------------------------------------------------------- -import qualified StylishHaskell.Stylish.Imports.Tests -import qualified StylishHaskell.Stylish.LanguagePragmas.Tests -import qualified StylishHaskell.Stylish.Tabs.Tests -import qualified StylishHaskell.Stylish.TrailingWhitespace.Tests -import qualified StylishHaskell.Stylish.UnicodeSyntax.Tests +import qualified StylishHaskell.Step.Imports.Tests +import qualified StylishHaskell.Step.LanguagePragmas.Tests +import qualified StylishHaskell.Step.Tabs.Tests +import qualified StylishHaskell.Step.TrailingWhitespace.Tests +import qualified StylishHaskell.Step.UnicodeSyntax.Tests -------------------------------------------------------------------------------- main :: IO () main = defaultMain - [ StylishHaskell.Stylish.Imports.Tests.tests - , StylishHaskell.Stylish.LanguagePragmas.Tests.tests - , StylishHaskell.Stylish.Tabs.Tests.tests - , StylishHaskell.Stylish.TrailingWhitespace.Tests.tests - , StylishHaskell.Stylish.UnicodeSyntax.Tests.tests + [ StylishHaskell.Step.Imports.Tests.tests + , StylishHaskell.Step.LanguagePragmas.Tests.tests + , StylishHaskell.Step.Tabs.Tests.tests + , StylishHaskell.Step.TrailingWhitespace.Tests.tests + , StylishHaskell.Step.UnicodeSyntax.Tests.tests ] |