Permalink
Browse files

Fixed -Wall warnings.

  • Loading branch information...
1 parent 99f3120 commit 0030b0a0dab749a5b29ea0b2e0eb5f694fca74d6 @jgm committed Jun 7, 2011
Showing with 3 additions and 5 deletions.
  1. +3 −5 pandoc2.hs
View
@@ -2,16 +2,13 @@
import Text.Pandoc2
import Text.Blaze.Renderer.Utf8
import qualified Data.ByteString as B
-import System.Environment
import Data.Text.Encoding (decodeUtf8)
-import qualified Data.Text as T
import Data.Char (toLower)
-import Data.List (intercalate)
import System.Console.CmdArgs
main :: IO ()
main = do
- opts <- cmdArgs opts
+ opts <- cmdArgs options
verbosity' <- getVerbosity
let poptions' = poptions { optLogLevel = case verbosity' of
Quiet -> ERROR
@@ -55,7 +52,8 @@ extensionsHelp =
"Syntax extensions: " ++ intercalate ", " (map show (enumFrom Footnotes))
-}
-opts = Pandoc2
+options :: Pandoc2
+options = Pandoc2
{ from = "markdown" &= typ "FORMAT" &= help "Source format"
, to = "html" &= typ "FORMAT" &= help "Target format"
, strict = def &= help "Disable pandoc's markdown extensions"

0 comments on commit 0030b0a

Please sign in to comment.