Add a version command

executable/Main.hs

@@ -14,6 +14,7 @@ import qualified Data.Aeson.TH as Aeson
 import qualified Data.Binary.Get as Binary
 import qualified Data.Binary.Put as Binary
 import qualified Data.ByteString.Lazy as ByteString
+import qualified Data.Version as Version
 import qualified Language.Haskell.TH as TH
 import qualified System.Environment as Environment
 
@@ -25,6 +26,7 @@ main = do
 mainWithArgs :: [String] -> IO ()
 mainWithArgs args =
   case args of
+    ["version"] -> putStrLn (Version.showVersion version)
     "decode":files -> do
       (getInput, putOutput) <- getIO files
       input <- getInput

library/Rattletrap.hs

@@ -36,6 +36,7 @@ import Rattletrap.ReplicationValue as Export
 import Rattletrap.Text as Export
 import Rattletrap.Utility as Export
 import Rattletrap.Vector as Export
+import Rattletrap.Version as Export
 import Rattletrap.Word32 as Export
 import Rattletrap.Word64 as Export
 import Rattletrap.Word8 as Export

library/Rattletrap/Version.hs

@@ -0,0 +1,7 @@
+module Rattletrap.Version where
+
+import qualified Data.Version as Version
+import qualified Paths_rattletrap as This
+
+version :: Version.Version
+version = This.version

package.yaml

@@ -33,6 +33,7 @@ library:
   - regex-compat
   - text
   - vector
+  other-modules: Paths_rattletrap
   source-dirs: library
 license: MIT
 license-file: LICENSE.markdown