@@ -110,7 +110,8 @@ parseOptions options' defaults = do
110 let (actions, args, unrecognizedOpts, errors) =
110 let (actions, args, unrecognizedOpts, errors) =
111 getOpt' Permute options' rawArgs
111 getOpt' Permute options' rawArgs
113− let unknownOptionErrors = foldr handleUnrecognizedOption [] unrecognizedOpts
113+ let unknownOptionErrors = foldr handleUnrecognizedOption [] $
114+ map (takeWhile (/= '=')) unrecognizedOpts
115 unless (null errors && null unknownOptionErrors) $
116 unless (null errors && null unknownOptionErrors) $
116 E.throwIO $ PandocOptionError $
117 E.throwIO $ PandocOptionError $