T.P.App.Opt: rename optReader, optWriter as optFrom, optTo.

This will allow to: and from: in defaults.

4 files changed, 9 insertions, 9 deletions

diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs
index 38a469669..ed5963f1a 100644
--- a/src/Text/Pandoc/App.hs
+++ b/src/Text/Pandoc/App.hs
@@ -136,7 +136,7 @@ convertWithOpts opts = do
     setOutputFile (optOutputFile opts)
 
     -- assign reader and writer based on options and filenames
-    readerName <- case optReader opts of
+    readerName <- case optFrom opts of
                        Just f  -> return f
                        Nothing -> case formatFromFilePaths sources of
                            Just f' -> return f'
diff --git a/src/Text/Pandoc/App/CommandLineOptions.hs b/src/Text/Pandoc/App/CommandLineOptions.hs
index 8ff7c70e3..e23452b3b 100644
--- a/src/Text/Pandoc/App/CommandLineOptions.hs
+++ b/src/Text/Pandoc/App/CommandLineOptions.hs
@@ -131,14 +131,14 @@ options =
 
     , Option "fr" ["from","read"]
                  (ReqArg
-                  (\arg opt -> return opt { optReader =
+                  (\arg opt -> return opt { optFrom =
                                               Just (map toLower arg) })
                   "FORMAT")
                  ""
 
     , Option "tw" ["to","write"]
                  (ReqArg
-                  (\arg opt -> return opt { optWriter = Just arg })
+                  (\arg opt -> return opt { optTo = Just arg })
                   "FORMAT")
                  ""
 
diff --git a/src/Text/Pandoc/App/Opt.hs b/src/Text/Pandoc/App/Opt.hs
index 09086659d..c491d8ae2 100644
--- a/src/Text/Pandoc/App/Opt.hs
+++ b/src/Text/Pandoc/App/Opt.hs
@@ -45,8 +45,8 @@ data Opt = Opt
     { optTabStop               :: Int     -- ^ Number of spaces per tab
     , optPreserveTabs          :: Bool    -- ^ Preserve tabs instead of converting to spaces
     , optStandalone            :: Bool    -- ^ Include header, footer
-    , optReader                :: Maybe String  -- ^ Reader format
-    , optWriter                :: Maybe String  -- ^ Writer format
+    , optFrom                  :: Maybe String  -- ^ Reader format
+    , optTo                    :: Maybe String  -- ^ Writer format
     , optTableOfContents       :: Bool    -- ^ Include table of contents
     , optShiftHeadingLevelBy   :: Int     -- ^ Shift heading level by
     , optTemplate              :: Maybe FilePath  -- ^ Custom template
@@ -119,8 +119,8 @@ defaultOpts = Opt
     { optTabStop               = 4
     , optPreserveTabs          = False
     , optStandalone            = False
-    , optReader                = Nothing
-    , optWriter                = Nothing
+    , optFrom                  = Nothing
+    , optTo                    = Nothing
     , optTableOfContents       = False
     , optShiftHeadingLevelBy   = 0
     , optTemplate              = Nothing
diff --git a/src/Text/Pandoc/App/OutputSettings.hs b/src/Text/Pandoc/App/OutputSettings.hs
index 6e430a76e..bdfb4cde2 100644
--- a/src/Text/Pandoc/App/OutputSettings.hs
+++ b/src/Text/Pandoc/App/OutputSettings.hs
@@ -68,8 +68,8 @@ optToOutputSettings opts = do
   let pdfOutput = map toLower (takeExtension outputFile) == ".pdf"
   (writerName, maybePdfProg) <-
     if pdfOutput
-       then liftIO $ pdfWriterAndProg (optWriter opts) (optPdfEngine opts)
-       else case optWriter opts of
+       then liftIO $ pdfWriterAndProg (optTo opts) (optPdfEngine opts)
+       else case optTo opts of
               Nothing
                 | outputFile == "-" -> return ("html", Nothing)
                 | otherwise ->