Use version from Paths_shuffle

Author: Jaro Reinders

.gitignore

@@ -1,3 +1,2 @@
 dist
 dist-*
-src/UHC/Shuffle/Version.hs

Setup.hs

@@ -2,30 +2,5 @@ import Distribution.Simple (defaultMainWithHooks)
 import Distribution.Simple.UUAGC (uuagcLibUserHook)
 import UU.UUAGC (uuagc)
 
-{-
 main :: IO ()
-main = defaultMainWithHooks $
-         uuagcLibUserHook uuagc
--}
-
-{-
--}
-import Distribution.PackageDescription
-import Distribution.Simple.UserHooks
-import Distribution.Package
-import Distribution.Version
-import qualified Data.Version
-
-main :: IO ()
-main = defaultMainWithHooks $
-         addHook $
-         uuagcLibUserHook uuagc
-  where addHook hooks = hooks {
-            postConf = postConf_InsertVersion hooks
-          }
-        -- postConf_InsertVersion :: Args -> ConfigFlags -> PackageDescription -> LocalBuildInfo -> IO ()
-        postConf_InsertVersion hooks args cfg pkgDescr bi = do
-          postConf hooks args cfg pkgDescr bi
-          writeFile "src/UHC/Shuffle/Version.hs" $
-            "module UHC.Shuffle.Version where\n" ++
-            "version = \"" ++ Data.Version.showVersion (Data.Version.makeVersion $ versionNumbers $ pkgVersion $ package pkgDescr) ++ "\"\n"
+main = defaultMainWithHooks $ uuagcLibUserHook uuagc

shuffle.cabal

@@ -38,8 +38,8 @@ Library
   default-language:  Haskell2010
   default-extensions:RankNTypes, TypeSynonymInstances, FlexibleInstances, FlexibleContexts
   Exposed-Modules:   UHC.Shuffle,
-                     UHC.Shuffle.Version,
-                     Distribution.Simple.Shuffle
+                     Distribution.Simple.Shuffle,
+                     UHC.Shuffle.Version
   Other-Modules:     UHC.Shuffle.AspectExpr,
                      UHC.Shuffle.AspectExprEval,
                      UHC.Shuffle.CDoc,
@@ -48,13 +48,15 @@ Library
                      UHC.Shuffle.CDocSubst,
                      UHC.Shuffle.ChunkParser,
                      UHC.Shuffle.Common,
-                     UHC.Shuffle.MainAG
+                     UHC.Shuffle.MainAG,
+                     Paths_shuffle
   autogen-modules:   UHC.Shuffle.AspectExpr,
                      UHC.Shuffle.AspectExprEval,
                      UHC.Shuffle.CDoc,
                      UHC.Shuffle.CDocInline,
                      UHC.Shuffle.CDocSubst,
-                     UHC.Shuffle.MainAG
+                     UHC.Shuffle.MainAG,
+                     Paths_shuffle
   Build-Depends:     base >= 4 && < 5,
                      containers >= 0.4,
                      directory >= 1.1,

src/UHC/Shuffle/Version.hs

@@ -0,0 +1,7 @@
+module UHC.Shuffle.Version (version) where
+
+import qualified Paths_shuffle (version)
+import Data.Version (showVersion)
+
+version :: String
+version = showVersion Paths_shuffle.version