git.iko.soy/typeable/pandoc
on master help sign in
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

commita81613df346818ff31889289b4ef82708dd1f73a authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> dateMon 15 Oct 2007, 21:21 (19 years ago) parentd6d49db
3 files changed+9−4
compare with master
unifiedsplit
debian/changelog+3 src/Main.hs+1−4 src/Text/Pandoc.hs+5
debian/changelog+3
@@ -101,6 +101,9 @@ pandoc (0.45) unstable; urgency=low
101101 that a temp file is now always used, even when input comes from a
102102 local file or standard input.
103103
104+ * Removed 'version' constant from Main.hs; added 'pandocVersion' to
105+ Text.Pandoc library.
106+
104107 * Fixed MacPorts Portfile:
105108
106109 + Modified to install the pandoc library in addition to programs.
src/Main.hs+1−4
@@ -42,9 +42,6 @@ import Data.List ( isPrefixOf )
4242import Data.Char ( toLower )
4343import Control.Monad ( (>>=) )
4444
45−version :: String
46−version = "0.45"
47−
4845copyrightMessage :: String
4946copyrightMessage = "\nCopyright (C) 2006-7 John MacFarlane\n\
5047 \Web: http://johnmacfarlane.net/pandoc\n\
@@ -298,7 +295,7 @@ options =
298295 (NoArg
299296 (\_ -> do
300297 prg <- getProgName
301− hPutStrLn stderr (prg ++ " " ++ version ++
298+ hPutStrLn stderr (prg ++ " " ++ pandocVersion ++
302299 copyrightMessage)
303300 exitWith $ ExitFailure 4))
304301 "" -- "Print version"
src/Text/Pandoc.hs+5
@@ -83,6 +83,8 @@ module Text.Pandoc
8383 , module Text.Pandoc.Writers.DefaultHeaders
8484 -- * Functions for converting to and from UTF-8
8585 , module Text.Pandoc.UTF8
86+ -- * Version
87+ , pandocVersion
8688 ) where
8789
8890import Text.Pandoc.Definition
@@ -103,3 +105,6 @@ import Text.Pandoc.Writers.DefaultHeaders
103105import Text.Pandoc.UTF8
104106import Text.Pandoc.Shared
105107
108+-- | Version number of pandoc library.
109+pandocVersion :: String
110+pandocVersion = "0.45"