summaryrefslogtreecommitdiffhomepage
path: root/src/Main.hs
diff options
context:
space:
mode:
authorJasper Van der Jeugt <m@jaspervdj.be>2012-06-05 08:18:30 +0200
committerJasper Van der Jeugt <m@jaspervdj.be>2012-06-05 08:18:30 +0200
commitcbe0f7bc5ddae7f546e525394c8095062e11ef0f (patch)
tree8bc777fe40c11f2d27829798accbb77391a13026 /src/Main.hs
parentaf54fd00292a943773b0a82c0250e0e25cac4359 (diff)
downloadstylish-haskell-cbe0f7bc5ddae7f546e525394c8095062e11ef0f.tar.gz
Figure out or own version
Diffstat (limited to 'src/Main.hs')
-rw-r--r--src/Main.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 93bec4d..02027ab 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -6,11 +6,14 @@ module Main
--------------------------------------------------------------------------------
+import Data.List (intercalate)
import Data.Maybe (listToMaybe)
+import Data.Version (Version(..))
import System.Console.CmdArgs
--------------------------------------------------------------------------------
+import Paths_stylish_haskell (version)
import StylishHaskell
import StylishHaskell.Config
@@ -27,7 +30,9 @@ stylishArgs :: StylishArgs
stylishArgs = StylishArgs
{ config = Nothing &= typFile &= help "Configuration file"
, files = [] &= typFile &= args
- } &= summary "stylish-haskell"
+ } &= summary ("stylish-haskell-" ++ versionString version)
+ where
+ versionString = intercalate "." . map show . versionBranch
--------------------------------------------------------------------------------