Skip to content
Browse files

Move modules

  • Loading branch information...
1 parent 6ffe66c commit fc2231cab67ae58bc85aa8ca41bf7f0bec662a17 @jaspervdj committed Sep 15, 2012
Showing with 168 additions and 159 deletions.
  1. +41 −12 src/Language/Haskell/Stylish.hs
  2. +1 −1 src/{StylishHaskell → Language/Haskell/Stylish}/Block.hs
  3. +10 −10 src/{StylishHaskell → Language/Haskell/Stylish}/Config.hs
  4. +3 −3 src/{StylishHaskell → Language/Haskell/Stylish}/Editor.hs
  5. +4 −4 src/{StylishHaskell → Language/Haskell/Stylish}/Parse.hs
  6. +1 −1 src/{StylishHaskell → Language/Haskell/Stylish}/Step.hs
  7. +5 −5 src/{StylishHaskell → Language/Haskell/Stylish}/Step/Imports.hs
  8. +5 −5 src/{StylishHaskell → Language/Haskell/Stylish}/Step/LanguagePragmas.hs
  9. +4 −4 src/{StylishHaskell → Language/Haskell/Stylish}/Step/Records.hs
  10. +2 −2 src/{StylishHaskell → Language/Haskell/Stylish}/Step/Tabs.hs
  11. +2 −2 src/{StylishHaskell → Language/Haskell/Stylish}/Step/TrailingWhitespace.hs
  12. +6 −6 src/{StylishHaskell → Language/Haskell/Stylish}/Step/UnicodeSyntax.hs
  13. +2 −2 src/{StylishHaskell → Language/Haskell/Stylish}/Util.hs
  14. +1 −1 src/{StylishHaskell → Language/Haskell/Stylish}/Verbose.hs
  15. 0 {app → src}/Main.hs
  16. +0 −28 src/StylishHaskell.hs
  17. +37 −29 stylish-haskell.cabal
  18. +3 −3 tests/{StylishHaskell → Language/Haskell/Stylish}/Parse/Tests.hs
  19. +4 −4 tests/{StylishHaskell → Language/Haskell/Stylish}/Step/Imports/Tests.hs
  20. +4 −4 tests/{StylishHaskell → Language/Haskell/Stylish}/Step/LanguagePragmas/Tests.hs
  21. +4 −4 tests/{StylishHaskell → Language/Haskell/Stylish}/Step/Records/Tests.hs
  22. +4 −4 tests/{StylishHaskell → Language/Haskell/Stylish}/Step/Tabs/Tests.hs
  23. +4 −4 tests/{StylishHaskell → Language/Haskell/Stylish}/Step/TrailingWhitespace/Tests.hs
  24. +4 −4 tests/{StylishHaskell → Language/Haskell/Stylish}/Step/UnicodeSyntax/Tests.hs
  25. +3 −3 tests/{StylishHaskell → Language/Haskell/Stylish}/Tests/Util.hs
  26. +14 −14 tests/TestSuite.hs
View
53 src/Language/Haskell/Stylish.hs
@@ -1,3 +1,4 @@
+--------------------------------------------------------------------------------
module Language.Haskell.Stylish
( -- * Run
runSteps
@@ -14,48 +15,76 @@ module Language.Haskell.Stylish
-- ** Helpers
, stepName
-- * Config
- , module StylishHaskell.Config
+ , module Language.Haskell.Stylish.Config
-- * Misc
- , module StylishHaskell.Verbose
+ , module Language.Haskell.Stylish.Verbose
, version
, Lines
, Step
) where
-import StylishHaskell
-import StylishHaskell.Config
-import StylishHaskell.Step
-import StylishHaskell.Verbose
+
+--------------------------------------------------------------------------------
+import Control.Applicative ((<$>))
+import Control.Monad (foldM)
+
+
+--------------------------------------------------------------------------------
+import Language.Haskell.Stylish.Config
+import Language.Haskell.Stylish.Step
+import Language.Haskell.Stylish.Verbose
+import Language.Haskell.Stylish.Parse
import Paths_stylish_haskell (version)
+import qualified Language.Haskell.Stylish.Step.Imports as Imports
+import qualified Language.Haskell.Stylish.Step.LanguagePragmas as LanguagePragmas
+import qualified Language.Haskell.Stylish.Step.Records as Records
+import qualified Language.Haskell.Stylish.Step.Tabs as Tabs
+import qualified Language.Haskell.Stylish.Step.TrailingWhitespace as TrailingWhitespace
+import qualified Language.Haskell.Stylish.Step.UnicodeSyntax as UnicodeSyntax
-import qualified StylishHaskell.Step.Imports as Imports
-import qualified StylishHaskell.Step.LanguagePragmas as LanguagePragmas
-import qualified StylishHaskell.Step.Records as Records
-import qualified StylishHaskell.Step.Tabs as Tabs
-import qualified StylishHaskell.Step.TrailingWhitespace as TrailingWhitespace
-import qualified StylishHaskell.Step.UnicodeSyntax as UnicodeSyntax
+--------------------------------------------------------------------------------
imports :: Int -- ^ columns
-> Imports.Align
-> Step
imports = Imports.step
+
+--------------------------------------------------------------------------------
languagePragmas :: Int -- ^ columns
-> LanguagePragmas.Style
-> Bool -- ^ remove redundant?
-> Step
languagePragmas = LanguagePragmas.step
+
+--------------------------------------------------------------------------------
records :: Step
records = Records.step
+
+--------------------------------------------------------------------------------
tabs :: Int -- ^ number of spaces
-> Step
tabs = Tabs.step
trailingWhitespace :: Step
trailingWhitespace = TrailingWhitespace.step
+
+--------------------------------------------------------------------------------
unicodeSyntax :: Bool -- ^ add language pragma?
-> Step
unicodeSyntax = UnicodeSyntax.step
+
+
+--------------------------------------------------------------------------------
+runStep :: Extensions -> Maybe FilePath -> Lines -> Step -> Either String Lines
+runStep exts mfp ls step =
+ stepFilter step ls <$> parseModule exts mfp (unlines ls)
+
+
+--------------------------------------------------------------------------------
+runSteps :: Extensions -> Maybe FilePath -> [Step] -> Lines
+ -> Either String Lines
+runSteps exts mfp steps ls = foldM (runStep exts mfp) ls steps
View
2 src/StylishHaskell/Block.hs → src/Language/Haskell/Stylish/Block.hs
@@ -1,5 +1,5 @@
--------------------------------------------------------------------------------
-module StylishHaskell.Block
+module Language.Haskell.Stylish.Block
( Block (..)
, LineBlock
, SpanBlock
View
20 src/StylishHaskell/Config.hs → src/Language/Haskell/Stylish/Config.hs
@@ -1,6 +1,6 @@
--------------------------------------------------------------------------------
{-# LANGUAGE OverloadedStrings #-}
-module StylishHaskell.Config
+module Language.Haskell.Stylish.Config
( Extensions
, Config (..)
, defaultConfigFilePath
@@ -26,14 +26,14 @@ import System.FilePath ((</>))
--------------------------------------------------------------------------------
import Paths_stylish_haskell (getDataFileName)
-import StylishHaskell.Step
-import qualified StylishHaskell.Step.Imports as Imports
-import qualified StylishHaskell.Step.LanguagePragmas as LanguagePragmas
-import qualified StylishHaskell.Step.Records as Records
-import qualified StylishHaskell.Step.Tabs as Tabs
-import qualified StylishHaskell.Step.TrailingWhitespace as TrailingWhitespace
-import qualified StylishHaskell.Step.UnicodeSyntax as UnicodeSyntax
-import StylishHaskell.Verbose
+import Language.Haskell.Stylish.Step
+import qualified Language.Haskell.Stylish.Step.Imports as Imports
+import qualified Language.Haskell.Stylish.Step.LanguagePragmas as LanguagePragmas
+import qualified Language.Haskell.Stylish.Step.Records as Records
+import qualified Language.Haskell.Stylish.Step.Tabs as Tabs
+import qualified Language.Haskell.Stylish.Step.TrailingWhitespace as TrailingWhitespace
+import qualified Language.Haskell.Stylish.Step.UnicodeSyntax as UnicodeSyntax
+import Language.Haskell.Stylish.Verbose
--------------------------------------------------------------------------------
@@ -101,7 +101,7 @@ loadConfig verbose mfp = do
bs <- B.readFile fp
case decodeEither bs of
Left err -> error $
- "StylishHaskell.Config.loadConfig: " ++ err
+ "Language.Haskell.Stylish.Config.loadConfig: " ++ err
Right config -> return config
View
6 src/StylishHaskell/Editor.hs → src/Language/Haskell/Stylish/Editor.hs
@@ -6,7 +6,7 @@
--
-- when this is evaluated, we take into account that 4th line will become the
-- 3rd line before it needs changing.
-module StylishHaskell.Editor
+module Language.Haskell.Stylish.Editor
( Change
, applyChanges
@@ -19,7 +19,7 @@ module StylishHaskell.Editor
--------------------------------------------------------------------------------
-import StylishHaskell.Block
+import Language.Haskell.Stylish.Block
--------------------------------------------------------------------------------
@@ -39,7 +39,7 @@ moveChange offset (Change block ls) = Change (moveBlock offset block) ls
applyChanges :: [Change a] -> [a] -> [a]
applyChanges changes
| overlapping blocks = error $
- "StylishHaskell.Editor.applyChanges: " ++
+ "Language.Haskell.Stylish.Editor.applyChanges: " ++
"refusing to make overlapping changes"
| otherwise = go 1 changes
where
View
8 src/StylishHaskell/Parse.hs → src/Language/Haskell/Stylish/Parse.hs
@@ -1,5 +1,5 @@
--------------------------------------------------------------------------------
-module StylishHaskell.Parse
+module Language.Haskell.Stylish.Parse
( parseModule
) where
@@ -11,8 +11,8 @@ import qualified Language.Haskell.Exts.Annotated as H
--------------------------------------------------------------------------------
-import StylishHaskell.Config
-import StylishHaskell.Step
+import Language.Haskell.Stylish.Config
+import Language.Haskell.Stylish.Step
--------------------------------------------------------------------------------
@@ -60,5 +60,5 @@ parseModule extraExts mfp string = do
case H.parseModuleWithComments mode string' of
H.ParseOk md -> return md
err -> throwError $
- "StylishHaskell.Parse.parseModule: could not parse " ++
+ "Language.Haskell.Stylish.Parse.parseModule: could not parse " ++
fp ++ ": " ++ show err
View
2 src/StylishHaskell/Step.hs → src/Language/Haskell/Stylish/Step.hs
@@ -1,5 +1,5 @@
--------------------------------------------------------------------------------
-module StylishHaskell.Step
+module Language.Haskell.Stylish.Step
( Lines
, Module
, Step (..)
View
10 src/StylishHaskell/Step/Imports.hs → src/Language/Haskell/Stylish/Step/Imports.hs
@@ -1,5 +1,5 @@
--------------------------------------------------------------------------------
-module StylishHaskell.Step.Imports
+module Language.Haskell.Stylish.Step.Imports
( Align (..)
, step
) where
@@ -15,10 +15,10 @@ import qualified Language.Haskell.Exts.Annotated as H
--------------------------------------------------------------------------------
-import StylishHaskell.Block
-import StylishHaskell.Editor
-import StylishHaskell.Step
-import StylishHaskell.Util
+import Language.Haskell.Stylish.Block
+import Language.Haskell.Stylish.Editor
+import Language.Haskell.Stylish.Step
+import Language.Haskell.Stylish.Util
--------------------------------------------------------------------------------
View
10 src/StylishHaskell/Step/LanguagePragmas.hs → ...e/Haskell/Stylish/Step/LanguagePragmas.hs
@@ -1,5 +1,5 @@
--------------------------------------------------------------------------------
-module StylishHaskell.Step.LanguagePragmas
+module Language.Haskell.Stylish.Step.LanguagePragmas
( Style (..)
, step
@@ -14,10 +14,10 @@ import qualified Language.Haskell.Exts.Annotated as H
--------------------------------------------------------------------------------
-import StylishHaskell.Block
-import StylishHaskell.Editor
-import StylishHaskell.Step
-import StylishHaskell.Util
+import Language.Haskell.Stylish.Block
+import Language.Haskell.Stylish.Editor
+import Language.Haskell.Stylish.Step
+import Language.Haskell.Stylish.Util
--------------------------------------------------------------------------------
View
8 src/StylishHaskell/Step/Records.hs → src/Language/Haskell/Stylish/Step/Records.hs
@@ -1,5 +1,5 @@
--------------------------------------------------------------------------------
-module StylishHaskell.Step.Records
+module Language.Haskell.Stylish.Step.Records
( step
) where
@@ -11,9 +11,9 @@ import qualified Language.Haskell.Exts.Annotated as H
--------------------------------------------------------------------------------
-import StylishHaskell.Editor
-import StylishHaskell.Step
-import StylishHaskell.Util
+import Language.Haskell.Stylish.Editor
+import Language.Haskell.Stylish.Step
+import Language.Haskell.Stylish.Util
--------------------------------------------------------------------------------
View
4 src/StylishHaskell/Step/Tabs.hs → src/Language/Haskell/Stylish/Step/Tabs.hs
@@ -1,11 +1,11 @@
--------------------------------------------------------------------------------
-module StylishHaskell.Step.Tabs
+module Language.Haskell.Stylish.Step.Tabs
( step
) where
--------------------------------------------------------------------------------
-import StylishHaskell.Step
+import Language.Haskell.Stylish.Step
--------------------------------------------------------------------------------
View
4 ...StylishHaskell/Step/TrailingWhitespace.hs → ...askell/Stylish/Step/TrailingWhitespace.hs
@@ -1,5 +1,5 @@
--------------------------------------------------------------------------------
-module StylishHaskell.Step.TrailingWhitespace
+module Language.Haskell.Stylish.Step.TrailingWhitespace
( step
) where
@@ -9,7 +9,7 @@ import Data.Char (isSpace)
--------------------------------------------------------------------------------
-import StylishHaskell.Step
+import Language.Haskell.Stylish.Step
--------------------------------------------------------------------------------
View
12 src/StylishHaskell/Step/UnicodeSyntax.hs → ...age/Haskell/Stylish/Step/UnicodeSyntax.hs
@@ -1,5 +1,5 @@
--------------------------------------------------------------------------------
-module StylishHaskell.Step.UnicodeSyntax
+module Language.Haskell.Stylish.Step.UnicodeSyntax
( step
) where
@@ -13,11 +13,11 @@ import qualified Language.Haskell.Exts.Annotated as H
--------------------------------------------------------------------------------
-import StylishHaskell.Block
-import StylishHaskell.Editor
-import StylishHaskell.Step
-import StylishHaskell.Step.LanguagePragmas (addLanguagePragma)
-import StylishHaskell.Util
+import Language.Haskell.Stylish.Block
+import Language.Haskell.Stylish.Editor
+import Language.Haskell.Stylish.Step
+import Language.Haskell.Stylish.Step.LanguagePragmas (addLanguagePragma)
+import Language.Haskell.Stylish.Util
--------------------------------------------------------------------------------
View
4 src/StylishHaskell/Util.hs → src/Language/Haskell/Stylish/Util.hs
@@ -1,5 +1,5 @@
--------------------------------------------------------------------------------
-module StylishHaskell.Util
+module Language.Haskell.Stylish.Util
( nameToString
, indent
, padRight
@@ -23,7 +23,7 @@ import qualified Language.Haskell.Exts.Annotated as H
--------------------------------------------------------------------------------
-import StylishHaskell.Step
+import Language.Haskell.Stylish.Step
--------------------------------------------------------------------------------
View
2 src/StylishHaskell/Verbose.hs → src/Language/Haskell/Stylish/Verbose.hs
@@ -1,5 +1,5 @@
--------------------------------------------------------------------------------
-module StylishHaskell.Verbose
+module Language.Haskell.Stylish.Verbose
( Verbose
, makeVerbose
) where
View
0 app/Main.hs → src/Main.hs
File renamed without changes.
View
28 src/StylishHaskell.hs
@@ -1,28 +0,0 @@
---------------------------------------------------------------------------------
-module StylishHaskell
- ( runStep
- , runSteps
- ) where
-
-
---------------------------------------------------------------------------------
-import Control.Applicative ((<$>))
-import Control.Monad (foldM)
-
-
---------------------------------------------------------------------------------
-import StylishHaskell.Config
-import StylishHaskell.Parse
-import StylishHaskell.Step
-
-
---------------------------------------------------------------------------------
-runStep :: Extensions -> Maybe FilePath -> Lines -> Step -> Either String Lines
-runStep exts mfp ls step =
- stepFilter step ls <$> parseModule exts mfp (unlines ls)
-
-
---------------------------------------------------------------------------------
-runSteps :: Extensions -> Maybe FilePath -> [Step] -> Lines
- -> Either String Lines
-runSteps exts mfp steps ls = foldM (runStep exts mfp) ls steps
View
66 stylish-haskell.cabal
@@ -25,22 +25,21 @@ Library
Exposed-modules: Language.Haskell.Stylish
Hs-source-dirs: src
Ghc-options: -Wall
- other-modules:
- Paths_stylish_haskell
@snoyberg
snoyberg added a note Sep 16, 2012

I think this module was accidentally removed from the list in the module move. As a result, the library does not work (we get the "unknown symbol" error message).

@jaspervdj
Owner
jaspervdj added a note Sep 16, 2012
@jaspervdj
Owner
jaspervdj added a note Sep 16, 2012

Should be fixed now!

@snoyberg
snoyberg added a note Sep 18, 2012

Thanks!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
- StylishHaskell
- StylishHaskell.Block
- StylishHaskell.Config
- StylishHaskell.Editor
- StylishHaskell.Parse
- StylishHaskell.Step
- StylishHaskell.Step.Imports
- StylishHaskell.Step.LanguagePragmas
- StylishHaskell.Step.Records
- StylishHaskell.Step.Tabs
- StylishHaskell.Step.TrailingWhitespace
- StylishHaskell.Step.UnicodeSyntax
- StylishHaskell.Util
- StylishHaskell.Verbose
+
+ Other-modules:
+ Language.Haskell.Stylish.Block
+ Language.Haskell.Stylish.Config
+ Language.Haskell.Stylish.Editor
+ Language.Haskell.Stylish.Parse
+ Language.Haskell.Stylish.Step
+ Language.Haskell.Stylish.Step.Imports
+ Language.Haskell.Stylish.Step.LanguagePragmas
+ Language.Haskell.Stylish.Step.Records
+ Language.Haskell.Stylish.Step.Tabs
+ Language.Haskell.Stylish.Step.TrailingWhitespace
+ Language.Haskell.Stylish.Step.UnicodeSyntax
+ Language.Haskell.Stylish.Util
+ Language.Haskell.Stylish.Verbose
Build-depends:
aeson >= 0.6 && < 0.7,
@@ -56,14 +55,24 @@ Library
Executable stylish-haskell
Ghc-options: -Wall
- Hs-source-dirs: app
+ Hs-source-dirs: src
Main-is: Main.hs
Build-depends:
- base >= 4 && < 5,
- cmdargs >= 0.9 && < 0.11,
+ stylish-haskell,
strict >= 0.3 && < 0.4,
- stylish-haskell
+ cmdargs >= 0.9 && < 0.11,
+ -- Copied from regular dependencies...
+ aeson >= 0.6 && < 0.7,
+ base >= 4 && < 5,
+ bytestring >= 0.9 && < 0.10,
+ containers >= 0.3 && < 0.6,
+ directory >= 1.1 && < 1.2,
+ filepath >= 1.1 && < 1.4,
+ haskell-src-exts >= 1.13 && < 1.14,
+ mtl >= 2.0 && < 2.2,
+ syb >= 0.3 && < 0.4,
+ yaml >= 0.7 && < 0.9
Test-suite stylish-haskell-tests
Ghc-options: -Wall
@@ -72,14 +81,14 @@ Test-suite stylish-haskell-tests
Type: exitcode-stdio-1.0
Other-modules:
- StylishHaskell.Parse.Tests
- StylishHaskell.Step.Imports.Tests
- StylishHaskell.Step.LanguagePragmas.Tests
- StylishHaskell.Step.Records.Tests
- StylishHaskell.Step.Tabs.Tests
- StylishHaskell.Step.TrailingWhitespace.Tests
- StylishHaskell.Step.UnicodeSyntax.Tests
- StylishHaskell.Tests.Util
+ Language.Haskell.Stylish.Parse.Tests
+ Language.Haskell.Stylish.Step.Imports.Tests
+ Language.Haskell.Stylish.Step.LanguagePragmas.Tests
+ Language.Haskell.Stylish.Step.Records.Tests
+ Language.Haskell.Stylish.Step.Tabs.Tests
+ Language.Haskell.Stylish.Step.TrailingWhitespace.Tests
+ Language.Haskell.Stylish.Step.UnicodeSyntax.Tests
+ Language.Haskell.Stylish.Tests.Util
Build-depends:
HUnit >= 1.2 && < 1.3,
@@ -95,7 +104,6 @@ Test-suite stylish-haskell-tests
filepath >= 1.1 && < 1.4,
haskell-src-exts >= 1.13 && < 1.14,
mtl >= 2.0 && < 2.2,
- strict >= 0.3 && < 0.4,
syb >= 0.3 && < 0.4,
yaml >= 0.7 && < 0.9
View
6 tests/StylishHaskell/Parse/Tests.hs → ...s/Language/Haskell/Stylish/Parse/Tests.hs
@@ -1,5 +1,5 @@
--------------------------------------------------------------------------------
-module StylishHaskell.Parse.Tests
+module Language.Haskell.Stylish.Parse.Tests
( tests
) where
@@ -11,12 +11,12 @@ import Test.HUnit (Assertion, assert)
--------------------------------------------------------------------------------
-import StylishHaskell.Parse
+import Language.Haskell.Stylish.Parse
--------------------------------------------------------------------------------
tests :: Test
-tests = testGroup "StylishHaskell.Parse"
+tests = testGroup "Language.Haskell.Stylish.Parse"
[ testCase "UTF-8 Byte Order Mark" testBom
, testCase "Extra extensions" testExtraExtensions
]
View
8 tests/StylishHaskell/Step/Imports/Tests.hs → ...age/Haskell/Stylish/Step/Imports/Tests.hs
@@ -1,5 +1,5 @@
--------------------------------------------------------------------------------
-module StylishHaskell.Step.Imports.Tests
+module Language.Haskell.Stylish.Step.Imports.Tests
( tests
) where
@@ -11,13 +11,13 @@ import Test.HUnit (Assertion, (@=?))
--------------------------------------------------------------------------------
-import StylishHaskell.Step.Imports
-import StylishHaskell.Tests.Util
+import Language.Haskell.Stylish.Step.Imports
+import Language.Haskell.Stylish.Tests.Util
--------------------------------------------------------------------------------
tests :: Test
-tests = testGroup "StylishHaskell.Step.Imports.Tests"
+tests = testGroup "Language.Haskell.Stylish.Step.Imports.Tests"
[ testCase "case 01" case01
, testCase "case 02" case02
, testCase "case 03" case03
View
8 ...lishHaskell/Step/LanguagePragmas/Tests.hs → ...ell/Stylish/Step/LanguagePragmas/Tests.hs
@@ -1,5 +1,5 @@
--------------------------------------------------------------------------------
-module StylishHaskell.Step.LanguagePragmas.Tests
+module Language.Haskell.Stylish.Step.LanguagePragmas.Tests
( tests
) where
@@ -11,13 +11,13 @@ import Test.HUnit (Assertion, (@=?))
--------------------------------------------------------------------------------
-import StylishHaskell.Step.LanguagePragmas
-import StylishHaskell.Tests.Util
+import Language.Haskell.Stylish.Step.LanguagePragmas
+import Language.Haskell.Stylish.Tests.Util
--------------------------------------------------------------------------------
tests :: Test
-tests = testGroup "StylishHaskell.Step.LanguagePragmas.Tests"
+tests = testGroup "Language.Haskell.Stylish.Step.LanguagePragmas.Tests"
[ testCase "case 01" case01
, testCase "case 02" case02
, testCase "case 03" case03
View
8 tests/StylishHaskell/Step/Records/Tests.hs → ...age/Haskell/Stylish/Step/Records/Tests.hs
@@ -1,5 +1,5 @@
--------------------------------------------------------------------------------
-module StylishHaskell.Step.Records.Tests
+module Language.Haskell.Stylish.Step.Records.Tests
( tests
) where
@@ -11,13 +11,13 @@ import Test.HUnit (Assertion, (@=?))
--------------------------------------------------------------------------------
-import StylishHaskell.Step.Records
-import StylishHaskell.Tests.Util
+import Language.Haskell.Stylish.Step.Records
+import Language.Haskell.Stylish.Tests.Util
--------------------------------------------------------------------------------
tests :: Test
-tests = testGroup "StylishHaskell.Step.Records.Tests"
+tests = testGroup "Language.Haskell.Stylish.Step.Records.Tests"
[ testCase "case 01" case01
]
View
8 tests/StylishHaskell/Step/Tabs/Tests.hs → ...nguage/Haskell/Stylish/Step/Tabs/Tests.hs
@@ -1,5 +1,5 @@
--------------------------------------------------------------------------------
-module StylishHaskell.Step.Tabs.Tests
+module Language.Haskell.Stylish.Step.Tabs.Tests
( tests
) where
@@ -11,13 +11,13 @@ import Test.HUnit (Assertion, (@=?))
--------------------------------------------------------------------------------
-import StylishHaskell.Step.Tabs
-import StylishHaskell.Tests.Util
+import Language.Haskell.Stylish.Step.Tabs
+import Language.Haskell.Stylish.Tests.Util
--------------------------------------------------------------------------------
tests :: Test
-tests = testGroup "StylishHaskell.Step.Tabs.Tests"
+tests = testGroup "Language.Haskell.Stylish.Step.Tabs.Tests"
[ testCase "case 01" case01
]
View
8 ...hHaskell/Step/TrailingWhitespace/Tests.hs → .../Stylish/Step/TrailingWhitespace/Tests.hs
@@ -1,5 +1,5 @@
--------------------------------------------------------------------------------
-module StylishHaskell.Step.TrailingWhitespace.Tests
+module Language.Haskell.Stylish.Step.TrailingWhitespace.Tests
( tests
) where
@@ -11,13 +11,13 @@ import Test.HUnit (Assertion, (@=?))
--------------------------------------------------------------------------------
-import StylishHaskell.Step.TrailingWhitespace
-import StylishHaskell.Tests.Util
+import Language.Haskell.Stylish.Step.TrailingWhitespace
+import Language.Haskell.Stylish.Tests.Util
--------------------------------------------------------------------------------
tests :: Test
-tests = testGroup "StylishHaskell.Step.TrailingWhitespace.Tests"
+tests = testGroup "Language.Haskell.Stylish.Step.TrailingWhitespace.Tests"
[ testCase "case 01" case01
]
View
8 ...tylishHaskell/Step/UnicodeSyntax/Tests.hs → ...skell/Stylish/Step/UnicodeSyntax/Tests.hs
@@ -1,5 +1,5 @@
--------------------------------------------------------------------------------
-module StylishHaskell.Step.UnicodeSyntax.Tests
+module Language.Haskell.Stylish.Step.UnicodeSyntax.Tests
( tests
) where
@@ -11,13 +11,13 @@ import Test.HUnit (Assertion, (@=?))
--------------------------------------------------------------------------------
-import StylishHaskell.Step.UnicodeSyntax
-import StylishHaskell.Tests.Util
+import Language.Haskell.Stylish.Step.UnicodeSyntax
+import Language.Haskell.Stylish.Tests.Util
--------------------------------------------------------------------------------
tests :: Test
-tests = testGroup "StylishHaskell.Step.UnicodeSyntax.Tests"
+tests = testGroup "Language.Haskell.Stylish.Step.UnicodeSyntax.Tests"
[ testCase "case 01" case01
]
View
6 tests/StylishHaskell/Tests/Util.hs → tests/Language/Haskell/Stylish/Tests/Util.hs
@@ -1,11 +1,11 @@
-module StylishHaskell.Tests.Util
+module Language.Haskell.Stylish.Tests.Util
( testStep
) where
--------------------------------------------------------------------------------
-import StylishHaskell.Parse
-import StylishHaskell.Step
+import Language.Haskell.Stylish.Parse
+import Language.Haskell.Stylish.Step
--------------------------------------------------------------------------------
View
28 tests/TestSuite.hs
@@ -9,23 +9,23 @@ import Test.Framework (defaultMain)
--------------------------------------------------------------------------------
-import qualified StylishHaskell.Parse.Tests
-import qualified StylishHaskell.Step.Imports.Tests
-import qualified StylishHaskell.Step.LanguagePragmas.Tests
-import qualified StylishHaskell.Step.Records.Tests
-import qualified StylishHaskell.Step.Tabs.Tests
-import qualified StylishHaskell.Step.TrailingWhitespace.Tests
-import qualified StylishHaskell.Step.UnicodeSyntax.Tests
+import qualified Language.Haskell.Stylish.Parse.Tests
+import qualified Language.Haskell.Stylish.Step.Imports.Tests
+import qualified Language.Haskell.Stylish.Step.LanguagePragmas.Tests
+import qualified Language.Haskell.Stylish.Step.Records.Tests
+import qualified Language.Haskell.Stylish.Step.Tabs.Tests
+import qualified Language.Haskell.Stylish.Step.TrailingWhitespace.Tests
+import qualified Language.Haskell.Stylish.Step.UnicodeSyntax.Tests
--------------------------------------------------------------------------------
main :: IO ()
main = defaultMain
- [ StylishHaskell.Parse.Tests.tests
- , StylishHaskell.Step.Imports.Tests.tests
- , StylishHaskell.Step.LanguagePragmas.Tests.tests
- , StylishHaskell.Step.Records.Tests.tests
- , StylishHaskell.Step.Tabs.Tests.tests
- , StylishHaskell.Step.TrailingWhitespace.Tests.tests
- , StylishHaskell.Step.UnicodeSyntax.Tests.tests
+ [ Language.Haskell.Stylish.Parse.Tests.tests
+ , Language.Haskell.Stylish.Step.Imports.Tests.tests
+ , Language.Haskell.Stylish.Step.LanguagePragmas.Tests.tests
+ , Language.Haskell.Stylish.Step.Records.Tests.tests
+ , Language.Haskell.Stylish.Step.Tabs.Tests.tests
+ , Language.Haskell.Stylish.Step.TrailingWhitespace.Tests.tests
+ , Language.Haskell.Stylish.Step.UnicodeSyntax.Tests.tests
]

0 comments on commit fc2231c

Please sign in to comment.
Something went wrong with that request. Please try again.