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