6f9a9c81f6Even in the Build system. This allows grepping to make sure that there are none left un-converted: git grep "writeFile" |grep -v F\\.| grep -v doc/|grep -v writeFileString | grep -v writeFileProtected |grep -v Utility/FileIO git grep "readFile" |grep -v F\\.| grep -v doc/|grep -v readFileString |grep -v Utility/FileIO git grep "appendFile" |grep -v F\\.| grep -v doc/|grep -v appendFileString |grep -v Utility/FileIO Might be nice to automate that to prevent future mistakes... Sponsored-by: the NIH-funded NICEMAN (ReproNim TR&D3) project
76 lines
1.9 KiB
Haskell
76 lines
1.9 KiB
Haskell
{- Package version determination. -}
|
|
|
|
{-# LANGUAGE LambdaCase, OverloadedStrings #-}
|
|
{-# OPTIONS_GHC -fno-warn-tabs #-}
|
|
|
|
module Build.Version where
|
|
|
|
import Data.List
|
|
import System.Environment
|
|
import Data.Char
|
|
import System.Process
|
|
import Control.Applicative
|
|
import Prelude
|
|
|
|
import Utility.Monad
|
|
import Utility.Exception
|
|
import Utility.OsPath
|
|
import Utility.FileSystemEncoding
|
|
import qualified Utility.FileIO as F
|
|
|
|
type Version = String
|
|
|
|
{- Set when making an official release. (Distribution vendors should set
|
|
- this too.) -}
|
|
isReleaseBuild :: IO Bool
|
|
isReleaseBuild = (== Just "1") <$> catchMaybeIO (getEnv "RELEASE_BUILD")
|
|
|
|
{- Version comes from the CHANGELOG, plus the git rev of the last commit.
|
|
- This works for autobuilds, ad-hoc builds, etc.
|
|
-
|
|
- If git or a git repo is not available, or something goes wrong,
|
|
- or this is a release build, just use the version from the CHANGELOG. -}
|
|
getVersion :: IO Version
|
|
getVersion = do
|
|
changelogversion <- getChangelogVersion
|
|
ifM (isReleaseBuild)
|
|
( return changelogversion
|
|
, catchDefaultIO changelogversion $ do
|
|
gitversion <- takeWhile (\c -> isAlphaNum c) <$> readProcess "sh"
|
|
[ "-c"
|
|
, "git log -n 1 --format=format:'%H'"
|
|
] ""
|
|
return $ if null gitversion
|
|
then changelogversion
|
|
else concat
|
|
[ changelogversion
|
|
, "-g"
|
|
, gitversion
|
|
]
|
|
)
|
|
|
|
getChangelogVersion :: IO Version
|
|
getChangelogVersion = do
|
|
changelog <- F.readFileString (literalOsPath "CHANGELOG")
|
|
let verline = takeWhile (/= '\n') changelog
|
|
return $ middle (words verline !! 1)
|
|
where
|
|
middle = drop 1 . init
|
|
|
|
writeVersion :: Version -> IO ()
|
|
writeVersion ver = catchMaybeIO (F.readFile' f) >>= \case
|
|
Just s | s == body -> return ()
|
|
_ -> F.writeFile' f body
|
|
where
|
|
body = encodeBS $ unlines $ concat
|
|
[ header
|
|
, ["packageversion :: String"]
|
|
, ["packageversion = \"" ++ ver ++ "\""]
|
|
, footer
|
|
]
|
|
header = [
|
|
"{- Automatically generated. -}"
|
|
, ""
|
|
]
|
|
footer = []
|
|
f = literalOsPath "Build/Version"
|