diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2016-02-01 11:12:59 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2016-02-01 11:12:59 +0100 |
commit | 337983bc827db048263ecc5d77eae824e3d8ca1d (patch) | |
tree | c28447d902b4234eccaa5df469cf8bffe2c26e98 /lib/Language/Haskell/Stylish/Step.hs | |
parent | 95f27fee0b5abed6052b7675b5b8bd6e77cb092d (diff) | |
download | stylish-haskell-337983bc827db048263ecc5d77eae824e3d8ca1d.tar.gz |
Fix warnings
Diffstat (limited to 'lib/Language/Haskell/Stylish/Step.hs')
-rw-r--r-- | lib/Language/Haskell/Stylish/Step.hs | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/lib/Language/Haskell/Stylish/Step.hs b/lib/Language/Haskell/Stylish/Step.hs new file mode 100644 index 0000000..f053f8b --- /dev/null +++ b/lib/Language/Haskell/Stylish/Step.hs @@ -0,0 +1,32 @@ +-------------------------------------------------------------------------------- +module Language.Haskell.Stylish.Step + ( Lines + , Module + , Step (..) + , makeStep + ) where + + +-------------------------------------------------------------------------------- +import qualified Language.Haskell.Exts.Annotated as H + + +-------------------------------------------------------------------------------- +type Lines = [String] + + +-------------------------------------------------------------------------------- +-- | Concrete module type +type Module = (H.Module H.SrcSpanInfo, [H.Comment]) + + +-------------------------------------------------------------------------------- +data Step = Step + { stepName :: String + , stepFilter :: Lines -> Module -> Lines + } + + +-------------------------------------------------------------------------------- +makeStep :: String -> (Lines -> Module -> Lines) -> Step +makeStep = Step |