diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-10-15 21:21:52 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-10-15 21:21:52 +0000 |
| commit | a81613df346818ff31889289b4ef82708dd1f73a (patch) | |
| tree | df83f4f314f54c3dfe3c648bd9af88fb0497b38a /src | |
| parent | d6d49db5be1d38da65f13e3ddf4c627ec3f6fd75 (diff) | |
| download | pandoc-a81613df346818ff31889289b4ef82708dd1f73a.tar.gz | |
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
Diffstat (limited to 'src')
| -rw-r--r-- | src/Main.hs | 5 | ||||
| -rw-r--r-- | src/Text/Pandoc.hs | 5 |
2 files changed, 6 insertions, 4 deletions
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" |