layers-game 0.4 → 0.4.1

raw patch · 2 files changed

+14/−4 lines, 2 files

Files

• layers-game.cabal +1/−1
• src/LayersArgs.hs +13/−3

@@ -1,5 +1,5 @@ name: layers-game-version: 0.4+version: 0.4.1 cabal-version: >=1.6 build-type: Simple license: BSD3

@@ -5,6 +5,11 @@ import System.IO.Unsafe (unsafePerformIO) import qualified Ressources as RES +#ifdef CABAL+import Data.Version (showVersion)+import Paths_layers_game (version)+#endif+ data LayersArgs = LayersArgs {    editMode       :: Bool,    loadLevelsFrom :: FilePath,@@ -17,7 +22,7 @@    saveLevelsTo   = defaultSaveTo   &= help ("Save levels to file (default='" ++ defaultSaveTo ++ "')") &= typFile    }    &= program "layers"-   &= summary summaryInfo+   &= summary ""    &= help "A prototypical 2d platform game."    &= helpArg [explicit, name "help", name "h"]    &= versionArg [explicit, name "version", name "v", summary versionInfo ]@@ -57,8 +62,13 @@ defaultSaveTo = "LayersData.hs" defaultLoadFrom = unsafePerformIO $ RES.getDataFileName "Ressources/Levels.hs" -versionInfo = "layers version 0.2.3"-summaryInfo = ""+versionInfo :: String+versionInfo =+#ifdef CABAL+   "layers version " ++ showVersion version+#else+   "layers version unknown (not built with cabal)"+#endif  getLayersArgs :: IO LayersArgs getLayersArgs = cmdArgs initLayersArgs