diff options
| author | Ondřej Janošík <j.ondra14@gmail.com> | 2015-07-09 14:22:59 +0200 |
|---|---|---|
| committer | Ondřej Janošík <j.ondra14@gmail.com> | 2015-07-09 14:22:59 +0200 |
| commit | 729c0cf4d315133e92b4e5c5b92bdc5f2fab7ef8 (patch) | |
| tree | 09c39d6ed1013e051232958dfb88c8c27f5cbd9e /tests | |
| parent | 6aee0d353d612cdeef28883e8d366133153ec057 (diff) | |
| download | stylish-haskell-729c0cf4d315133e92b4e5c5b92bdc5f2fab7ef8.tar.gz | |
Aligned lists with rest of file
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Language/Haskell/Stylish/Step/Imports/Tests.hs | 82 |
1 files changed, 41 insertions, 41 deletions
diff --git a/tests/Language/Haskell/Stylish/Step/Imports/Tests.hs b/tests/Language/Haskell/Stylish/Step/Imports/Tests.hs index 3587e97..2b35f5a 100644 --- a/tests/Language/Haskell/Stylish/Step/Imports/Tests.hs +++ b/tests/Language/Haskell/Stylish/Step/Imports/Tests.hs @@ -180,21 +180,21 @@ case08 :: Assertion case08 = expected @=? testStep (step 80 $ Align Global WithAlias Inline 4) input where expected = unlines - [ "module Herp where" - , "" - , "import Control.Monad" - , "import Data.List as List (concat, foldl, foldr, head, init," - , " last, length, map, null, reverse, tail," - , " (++))" - , "import Data.Map (Map, insert, lookup, (!))" - , "import qualified Data.Map as M" - , "import Only.Instances ()" - , "" - , "import Foo (Bar (..))" - , "import Herp.Derp.Internals hiding (foo)" - , "" - , "herp = putStrLn \"import Hello world\"" - ] + [ "module Herp where" + , "" + , "import Control.Monad" + , "import Data.List as List (concat, foldl, foldr, head, init," + , " last, length, map, null, reverse, tail," + , " (++))" + , "import Data.Map (Map, insert, lookup, (!))" + , "import qualified Data.Map as M" + , "import Only.Instances ()" + , "" + , "import Foo (Bar (..))" + , "import Herp.Derp.Internals hiding (foo)" + , "" + , "herp = putStrLn \"import Hello world\"" + ] -------------------------------------------------------------------------------- @@ -202,32 +202,32 @@ case09 :: Assertion case09 = expected @=? testStep (step 80 $ Align Global WithAlias Multiline 4) input where expected = unlines - [ "module Herp where" - , "" - , "import Control.Monad" - , "import Data.List as List" - , " ( concat" - , " , foldl" - , " , foldr" - , " , head" - , " , init" - , " , last" - , " , length" - , " , map" - , " , null" - , " , reverse" - , " , tail" - , " , (++)" - , " )" - , "import Data.Map (Map, insert, lookup, (!))" - , "import qualified Data.Map as M" - , "import Only.Instances ()" - , "" - , "import Foo (Bar (..))" - , "import Herp.Derp.Internals hiding (foo)" - , "" - , "herp = putStrLn \"import Hello world\"" - ] + [ "module Herp where" + , "" + , "import Control.Monad" + , "import Data.List as List" + , " ( concat" + , " , foldl" + , " , foldr" + , " , head" + , " , init" + , " , last" + , " , length" + , " , map" + , " , null" + , " , reverse" + , " , tail" + , " , (++)" + , " )" + , "import Data.Map (Map, insert, lookup, (!))" + , "import qualified Data.Map as M" + , "import Only.Instances ()" + , "" + , "import Foo (Bar (..))" + , "import Herp.Derp.Internals hiding (foo)" + , "" + , "herp = putStrLn \"import Hello world\"" + ] -------------------------------------------------------------------------------- |