wumpus-tree-0.1.0: Setup.hs

#!/usr/bin/env runhaskell

import Distribution.Simple
import Distribution.Simple.Setup ( SDistFlags )
import Distribution.PackageDescription ( HookedBuildInfo, emptyHookedBuildInfo )


main = defaultMainWithHooks sdist_warning_hooks

sdist_warning_hooks :: UserHooks
sdist_warning_hooks = simpleUserHooks { preSDist = sdistVersionWarning }


sdistVersionWarning :: Args -> SDistFlags -> IO HookedBuildInfo
sdistVersionWarning _ _ = 
    mapM_ putStrLn msg >> printVersionNumberFile >> return emptyHookedBuildInfo
  where
    msg = [ "-------------------------------------------------------"
          , "-------------------------------------------------------"
          , ""
          , "WARNING - is Wumpus.Tree.VersionNumber correct?"
          , ""
          , "-------------------------------------------------------"
          , "-------------------------------------------------------"
          ]

printVersionNumberFile :: IO ()
printVersionNumberFile = 
  readFile "src/Wumpus/Tree/VersionNumber.hs" >>= putStrLn