From a81613df346818ff31889289b4ef82708dd1f73a Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Mon, 15 Oct 2007 21:21:52 +0000
Subject: Removed 'version' constant from Main.hs; added 'pandocVersion' to
Text.Pandoc. This way all programs that use pandoc libraries will have access
to the version number.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1052 788f1e2b-df1e-0410-8736-df70ead52e1b
---
src/Main.hs | 5 +----
src/Text/Pandoc.hs | 5 +++++
2 files changed, 6 insertions(+), 4 deletions(-)
(limited to 'src')
diff --git a/src/Main.hs b/src/Main.hs
index b3171c2b4..ae9f61f7f 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -42,9 +42,6 @@ import Data.List ( isPrefixOf )
import Data.Char ( toLower )
import Control.Monad ( (>>=) )
-version :: String
-version = "0.45"
-
copyrightMessage :: String
copyrightMessage = "\nCopyright (C) 2006-7 John MacFarlane\n\
\Web: http://johnmacfarlane.net/pandoc\n\
@@ -298,7 +295,7 @@ options =
(NoArg
(\_ -> do
prg <- getProgName
- hPutStrLn stderr (prg ++ " " ++ version ++
+ hPutStrLn stderr (prg ++ " " ++ pandocVersion ++
copyrightMessage)
exitWith $ ExitFailure 4))
"" -- "Print version"
diff --git a/src/Text/Pandoc.hs b/src/Text/Pandoc.hs
index df73ed325..7633bf7ef 100644
--- a/src/Text/Pandoc.hs
+++ b/src/Text/Pandoc.hs
@@ -83,6 +83,8 @@ module Text.Pandoc
, module Text.Pandoc.Writers.DefaultHeaders
-- * Functions for converting to and from UTF-8
, module Text.Pandoc.UTF8
+ -- * Version
+ , pandocVersion
) where
import Text.Pandoc.Definition
@@ -103,3 +105,6 @@ import Text.Pandoc.Writers.DefaultHeaders
import Text.Pandoc.UTF8
import Text.Pandoc.Shared
+-- | Version number of pandoc library.
+pandocVersion :: String
+pandocVersion = "0.45"
--
cgit v1.2.3