a8920f4 · typeable/pandoc

73

74-- | Reader for native Pandoc format.

75readPandoc :: ParserState -> String -> Pandoc

76−readPandoc state input = read input

76+readPandoc _ input = read input

77

78-- | Association list of formats and pairs of writers and default headers.

79writers :: [ ( String, ( WriterOptions -> Pandoc -> String, String ) ) ]

93

94-- | Writer for Pandoc native format.

95writeDoc :: WriterOptions -> Pandoc -> String

96−writeDoc options = prettyPandoc

96+writeDoc _ = prettyPandoc

97

98-- | Data structure for command line options.

99data Opt = Opt

309

310 , Option "D" ["print-default-header"]

311 (ReqArg

312− (\arg opt -> do

312+ (\arg _ -> do

313 let header = case (lookup arg writers) of

314− Just (writer, head) -> head

314+ Just (_, h) -> h

315 Nothing -> error ("Unknown reader: " ++ arg)

316 hPutStr stdout header

317 exitWith ExitSuccess)

348

349-- Returns usage message

350usageMessage :: String -> [OptDescr (Opt -> IO Opt)] -> String

351−usageMessage programName options = usageInfo

351+usageMessage programName opts = usageInfo

352 (programName ++ " [OPTIONS] [FILES]" ++ "\nInput formats: " ++

353 (joinWithSep ", " $ map fst readers) ++ "\nOutput formats: " ++

354 (joinWithSep ", " $ map fst writers) ++ "\nOptions:")

355− options

355+ opts

356

357-- Determine default reader based on source file extensions

358defaultReaderName :: [FilePath] -> String

393 ".db" -> "docbook"

394 ".xml" -> "docbook"

395 ".sgml" -> "docbook"

396− ['.',x] | x `elem` ['1'..'9'] -> "man"

396+ ['.',y] | y `elem` ['1'..'9'] -> "man"

397 _ -> "html"

398

399+main :: IO ()

399main = do

400main = do

400

401

401 rawArgs <- getArgs

402 rawArgs <- getArgs