Shared arguments across subcommands

[GregorySchwartz]

Is something like this possible, with shared arguments across subcommands?

[Gabriella439]

@GregorySchwartz: Not easily with the current API. I think what this package would be missing is something like the :. type from the postgresql-simple package with an instance of the form:

instance (ParseRecord a, ParseRecord b) => ParseRecord (a :. b)

… because if you had that then you could do something like:

data UniqueOptions = SumPayments { user :: Text } | ListUsersSeen | SumQueries

data SharedOptions = SharedOptions{ start :: Text, end :: Text }

main :: IO ()
main = do
    (uniqueOptions :. sharedOptions) <- getRecord "Example"

    …

I haven't thought through all of the details for that, though