@@ -73,7 +73,7 @@ readers = [("native" , readPandoc)
7373
7474-- | Reader for native Pandoc format.
7575readPandoc :: ParserState -> String -> Pandoc
76−readPandoc state input = read input
76+readPandoc _ input = read input
7777
7878-- | Association list of formats and pairs of writers and default headers.
7979writers :: [ ( String, ( WriterOptions -> Pandoc -> String, String ) ) ]
@@ -93,7 +93,7 @@ writers = [("native" , (writeDoc, ""))
9393
9494-- | Writer for Pandoc native format.
9595writeDoc :: WriterOptions -> Pandoc -> String
96−writeDoc options = prettyPandoc
96+writeDoc _ = prettyPandoc
9797
9898-- | Data structure for command line options.
9999data Opt = Opt
@@ -309,9 +309,9 @@ options =
309309
310310 , Option "D" ["print-default-header"]
311311 (ReqArg
312− (\arg opt -> do
312+ (\arg _ -> do
313313 let header = case (lookup arg writers) of
314− Just (writer, head) -> head
314+ Just (_, h) -> h
315315 Nothing -> error ("Unknown reader: " ++ arg)
316316 hPutStr stdout header
317317 exitWith ExitSuccess)
@@ -348,11 +348,11 @@ options =
348348
349349-- Returns usage message
350350usageMessage :: String -> [OptDescr (Opt -> IO Opt)] -> String
351−usageMessage programName options = usageInfo
351+usageMessage programName opts = usageInfo
352352 (programName ++ " [OPTIONS] [FILES]" ++ "\nInput formats: " ++
353353 (joinWithSep ", " $ map fst readers) ++ "\nOutput formats: " ++
354354 (joinWithSep ", " $ map fst writers) ++ "\nOptions:")
355− options
355+ opts
356356
357357-- Determine default reader based on source file extensions
358358defaultReaderName :: [FilePath] -> String
@@ -393,9 +393,10 @@ defaultWriterName x =
393393 ".db" -> "docbook"
394394 ".xml" -> "docbook"
395395 ".sgml" -> "docbook"
396− ['.',x] | x `elem` ['1'..'9'] -> "man"
396+ ['.',y] | y `elem` ['1'..'9'] -> "man"
397397 _ -> "html"
398398
399+main :: IO ()
399400main = do
400401
401402 rawArgs <- getArgs