[Haskell-cafe] optparse-applicative with attoparsec parser

[Sébastien Leblanc]

>
> Date: Fri, 4 Feb 2022 15:09:41 +0100 (CET)
> From: PICCA Frederic-Emmanuel
>         <frederic-emmanuel.picca at synchrotron-soleil.fr>
> To: haskell-cafe at haskell.org
> Subject: [Haskell-cafe] optparse-applicative with attoparsec parser
> Message-ID:
>         <
> 30404406.15581346.1643983781075.JavaMail.zimbra at synchrotron-soleil.fr>
>
> Content-Type: text/plain; charset=utf-8
>
> Hello,
>
> I Try to write a parser for this command line
>
> binoculars-ng --debug process data/test/config_sixs_ruche_flymedv_3.ini
> 698-734 735-736
>
> But I  have this problem
>
> Invalid argument `735-736'
>
> The parser used for this is this one
>
> processOptions :: Parser Options
> processOptions = Process
>                  <$> optional config
>                  <*> optional (argument (eitherReader (parseOnly
> configRangeP . pack)) (metavar "RANGE"))
>
> it use the configRangeP attoparser parser whcih knows how to deal with the
> string "698-734 735-736"
>
> configRangeP :: Parser ConfigRange
> configRangeP = ConfigRange <$> (inputRangeP `sepBy` many (satisfy isSep))
>     where
>       isSep :: Char -> Bool
>       isSep c = c == ' ' || c == ','
>
> the result should be this one
>
> Just (ConfigRange [InputRangeFromTo 698 734,InputRangeFromTo 735 736])
>
> so my question how should I fix my processOptions fucntion in order to
> deal with this problem.
>
> thanks for considering
>

It seems that the issue stems from having your arguments separated by
spaces. If your parser is parsing [[ [debug-flag] <command> <file> <ranges>
]], then it does not know what to do with the last particle (735-736). You
would need to wrap your ranges in quotes in your shell, to include the
space, or replace the space with a comma instead (698-734,735-736)

Sébastien
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/haskell-cafe/attachments/20220206/49551cd7/attachment.html>