From a972a6ccbc57b35e4b1de2693364335cb65f4a51 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sat, 18 Apr 2009 16:15:56 +0000
Subject: [PATCH] Use Paths_pandoc to get version number.
(Instead of hard-coding it into Text/Pandoc.hs.)
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1560 788f1e2b-df1e-0410-8736-df70ead52e1b
---
pandoc.cabal | 3 ++-
src/Text/Pandoc.hs | 4 +++-
2 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/pandoc.cabal b/pandoc.cabal
index 0a0d10f0e..d31591dff 100644
--- a/pandoc.cabal
+++ b/pandoc.cabal
@@ -193,7 +193,8 @@ Library
Text.Pandoc.Writers.RTF,
Text.Pandoc.Writers.S5
Other-Modules: Text.Pandoc.XML,
- Text.Pandoc.TH
+ Text.Pandoc.TH,
+ Paths_pandoc
Extensions: CPP, TemplateHaskell, FlexibleInstances
Ghc-Options: -O2 -Wall
Ghc-Prof-Options: -auto-all
diff --git a/src/Text/Pandoc.hs b/src/Text/Pandoc.hs
index 496128480..2f9833b6b 100644
--- a/src/Text/Pandoc.hs
+++ b/src/Text/Pandoc.hs
@@ -108,7 +108,9 @@ import Text.Pandoc.Writers.RTF
import Text.Pandoc.Writers.MediaWiki
import Text.Pandoc.DefaultHeaders
import Text.Pandoc.Shared
+import Data.Version (showVersion)
+import Paths_pandoc (version)
-- | Version number of pandoc library.
pandocVersion :: String
-pandocVersion = "1.2"
+pandocVersion = showVersion version