Use CPP to insert version number, so version bump only requires chang…

…ing cabal file.
jgm · Jan 29, 2009 · 5b52668 · 5b52668
1 parent 73db5a1
commit 5b52668
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 5 deletions.
diff --git a/Gitit.hs b/Gitit.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE Rank2Types, FlexibleContexts #-}
+{-# LANGUAGE CPP, Rank2Types, FlexibleContexts #-}
 {-
 Copyright (C) 2008 John MacFarlane <jgm@berkeley.edu>
 
@@ -60,9 +60,6 @@ import Network.Socket
 import Network.Captcha.ReCaptcha (captchaFields, validateCaptcha)
 import Data.FileStore
 
-gititVersion :: String
-gititVersion = "0.5"
-
 sessionTime :: Int
 sessionTime = 60 * 60     -- session will expire 1 hour after page request
 
@@ -174,7 +171,7 @@ handleFlag _ opt = do
   progname <- getProgName
   case opt of
     Help         -> hPutStrLn stderr (usageInfo (usageHeader progname) flags) >> exitWith ExitSuccess
-    Version      -> hPutStrLn stderr (progname ++ " version " ++ gititVersion ++ copyrightMessage) >> exitWith ExitSuccess
+    Version      -> hPutStrLn stderr (progname ++ " version " ++ _VERSION ++ copyrightMessage) >> exitWith ExitSuccess
     ConfigFile f -> liftM read (readFile f)
 
 type Handler = ServerPart Response

diff --git a/gitit.cabal b/gitit.cabal
@@ -53,5 +53,6 @@ Executable           gitit
   if impl(ghc >= 6.10)
     build-depends:   base >= 4, syb
   ghc-options:       -Wall -threaded
+  cpp-options:       -D_VERSION="0.5"
   ghc-prof-options:  -auto-all