allOptions :: [OptDescr (Options -> Options)]
allOptions =
    [ Option "a" ["all"]
                 (NoArg (\ opts ->
                             opts { optAll = True }))
                 "all due cards"
    ]
allOptions :: [OptDescr (Options -> Options)]
allOptions =
    [ Option "a" ["all"]
                 (NoArg (\ opts ->
                             opts { optAll = True }))
                 "all due cards"
    ]
allOptions =
    [ Option "a" ["all"]
                 (NoArg (\ opts ->
                             opts { optAll = True }))
                 "all due cards"
    ]