Skip to content

G
gargantext-ihaskell
Commit fd781cb7 authored by Vaibhav Sagar's avatar Vaibhav Sagar
Browse files
Options

src/IHaskell/Convert/Args.hs: use format arguments

parent 8d323026
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 0 deletions
src/IHaskell/Convert/Args.hs
View file @ fd781cb7
...@@ -93,6 +93,12 @@ mergeArg (ConvertTo outputFile) convertSpec ...@@ -93,6 +93,12 @@ mergeArg (ConvertTo outputFile) convertSpec
(prev@(Just _), _) -> prev (prev@(Just _), _) -> prev
(Nothing, format) -> fmap (== IpynbFile) format (Nothing, format) -> fmap (== IpynbFile) format
} }
mergeArg (ConvertToFormat format) convertSpec = case format of
LhsMarkdown -> convertSpec { convertToIpynb = Just False }
IpynbFile -> convertSpec { convertToIpynb = Just True }
mergeArg (ConvertFromFormat format) convertSpec = case format of
LhsMarkdown -> convertSpec { convertToIpynb = Just True }
IpynbFile -> convertSpec { convertToIpynb = Just False }
mergeArg unexpectedArg _ = error $ "IHaskell.Convert.mergeArg: impossible argument: " mergeArg unexpectedArg _ = error $ "IHaskell.Convert.mergeArg: impossible argument: "
++ show unexpectedArg ++ show unexpectedArg
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment