diff options
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" |