diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2022-09-27 08:46:29 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2022-09-27 08:46:29 -0700 |
| commit | d2b300e96d5b8e08d0c15aee4431c18b3c658540 (patch) | |
| tree | 3cc74cb46651573c073ae6c5251eb58746e72ab4 | |
| parent | c5961db10dbc92e71a0d1edc66fc20aaaf457545 (diff) | |
pandoc-server: minor code simplification.
| -rw-r--r-- | pandoc-server/src/Text/Pandoc/Server.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/pandoc-server/src/Text/Pandoc/Server.hs b/pandoc-server/src/Text/Pandoc/Server.hs index 9b6f4eedc..f37739e89 100644 --- a/pandoc-server/src/Text/Pandoc/Server.hs +++ b/pandoc-server/src/Text/Pandoc/Server.hs @@ -93,9 +93,7 @@ cliOptions = ] parseServerOpts :: IO ServerOpts -parseServerOpts = do - args <- getArgs - parseServerOptsFromArgs args +parseServerOpts = getArgs >>= parseServerOptsFromArgs parseServerOptsFromArgs :: [String] -> IO ServerOpts parseServerOptsFromArgs args = do |