@@ -69,7 +69,8 @@ compileInfo =
6969 "\nCompiled with citeproc-hs " ++ VERSION_citeproc_hs ++ ", texmath " ++
7070 VERSION_texmath ++ ", highlighting-kate " ++ VERSION_highlighting_kate ++
7171 ".\nSyntax highlighting is supported for the following languages:\n " ++
72− wrapWords 4 78 languages
72+ wrapWords 4 78
73+ [map toLower l | l <- languages, l /= "Alert" && l /= "Alert_indent"]
7374
7475-- | Converts a list of strings into a single string with the items printed as
7576-- comma separated words in lines with a maximum line length.
@@ -704,8 +705,10 @@ options =
704705 (NoArg
705706 (\_ -> do
706707 prg <- getProgName
707− UTF8.hPutStrLn stdout (prg ++ " " ++ pandocVersion ++ compileInfo ++
708− copyrightMessage)
708+ defaultDatadir <- getAppUserDataDirectory "pandoc"
709+ UTF8.hPutStrLn stdout (prg ++ " " ++ pandocVersion ++
710+ compileInfo ++ "\nDefault data directory: " ++
711+ defaultDatadir ++ copyrightMessage)
709712 exitWith ExitSuccess ))
710713 "" -- "Print version"
711714