blob: eeeee979167ddb45309aa5975a7ae0530287c270 (
plain)
1
2
3
4
5
6
7
8
|
module Hsm.Core.Options
( getOptions
) where
import Options.Applicative (Parser, (<**>), execParser, fullDesc, helper, info, progDesc)
getOptions :: Parser a -> String -> IO a
getOptions parser desc = execParser . info (parser <**> helper) $ fullDesc <> progDesc desc
|
