bump to v0.4, and print version with usage

mtolly · Jun 10, 2014 · 718056b · 718056b
1 parent e12377f
commit 718056b
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/pokemid.cabal b/pokemid.cabal
@@ -1,5 +1,5 @@
 name:               pokemid
-version:            0.3
+version:            0.4
 synopsis:           Import\/export Pokémon Red\/Blue music as MIDI
 homepage:           https://github.com/mtolly/pokemid
 license:            PublicDomain
@@ -22,6 +22,7 @@ executable pokemid
                       Clean
                       Emit
                       Error
+                      Paths_pokemid
   build-depends:      base           >= 4.6     && < 4.8
                       , midi         >= 0.2.1.2 && < 0.3
                       , event-list   >= 0.1.0.2 && < 0.2

diff --git a/src/Main.hs b/src/Main.hs
@@ -1,5 +1,7 @@
 module Main where
 
+import Paths_pokemid (version)
+import Data.Version (showVersion)
 import qualified Scan
 import qualified Parse
 import qualified Assembly
@@ -64,6 +66,7 @@ main = do
       Save.toFile fmid mid
     _ -> do
       prog <- getProgName
+      hPutStrLn stderr $ prog ++ " v" ++ showVersion version
       hPutStrLn stderr $ "Usage: "++prog++" in.mid > out.asm"
       hPutStrLn stderr $ "       "++prog++" in.asm out.mid"
       exitFailure