Setup.hs

import Distribution.Simple
import Distribution.Simple.BuildPaths (autogenModulesDir)
import Distribution.Simple.LocalBuildInfo (LocalBuildInfo)
import Distribution.Simple.Setup (BuildFlags)
import Distribution.PackageDescription (PackageDescription, emptyHookedBuildInfo)
import System.Directory (createDirectoryIfMissing)
import System.FilePath ((</>))
import System.Process (readProcess)


main = defaultMainWithHooks $ simpleUserHooks { buildHook = myBuildHook }


myBuildHook :: PackageDescription -> LocalBuildInfo -> UserHooks -> BuildFlags -> IO ()
myBuildHook packageDescription buildInfo userHooks buildFlags =
    do
        createDirectoryIfMissing True (autogenModulesDir buildInfo)
        writeCustomFile (autogenModulesDir buildInfo </> "Build_elm_format_short.hs")
        buildHook simpleUserHooks packageDescription buildInfo userHooks buildFlags


writeCustomFile :: FilePath -> IO ()
writeCustomFile filepath = do
  putStrLn $ "Generating " ++ filepath ++ "..."

  desc <- readProcess "git" ["--git-dir=./.git", "describe", "--abbrev=8", "--always"] ""
  now <- readProcess "date" ["+%s"] ""

  writeFile filepath $ unlines
      [ "module Build_elm_format_short where"
      , ""
      , "gitDescribe :: String"
      , "gitDescribe = " ++ show (init desc)
      ]