summaryrefslogtreecommitdiffhomepage
path: root/lib/Language/Haskell/Stylish/Step.hs
diff options
context:
space:
mode:
authorJasper Van der Jeugt <m@jaspervdj.be>2016-02-01 11:12:59 +0100
committerJasper Van der Jeugt <m@jaspervdj.be>2016-02-01 11:12:59 +0100
commit337983bc827db048263ecc5d77eae824e3d8ca1d (patch)
treec28447d902b4234eccaa5df469cf8bffe2c26e98 /lib/Language/Haskell/Stylish/Step.hs
parent95f27fee0b5abed6052b7675b5b8bd6e77cb092d (diff)
downloadstylish-haskell-337983bc827db048263ecc5d77eae824e3d8ca1d.tar.gz
Fix warnings
Diffstat (limited to 'lib/Language/Haskell/Stylish/Step.hs')
-rw-r--r--lib/Language/Haskell/Stylish/Step.hs32
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