From ef0713cbd90d6b84da7ea67e6dfc1fe5ab5bff86 Mon Sep 17 00:00:00 2001 From: Paul Oliver Date: Sun, 7 Sep 2025 13:43:15 +0000 Subject: Adds generic app launcher helper function --- hsm-core/Hsm/Core/App.hs | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 hsm-core/Hsm/Core/App.hs (limited to 'hsm-core/Hsm/Core/App.hs') diff --git a/hsm-core/Hsm/Core/App.hs b/hsm-core/Hsm/Core/App.hs new file mode 100644 index 0000000..12849d4 --- /dev/null +++ b/hsm-core/Hsm/Core/App.hs @@ -0,0 +1,9 @@ +module Hsm.Core.App + ( runApp + ) where + +import Effectful (Eff, IOE, runEff) +import Options.Applicative (Parser, (<**>), execParser, fullDesc, helper, info, progDesc) + +runApp :: Parser o -> String -> (o -> Eff '[ IOE] a) -> IO a +runApp parser desc app = execParser (info (parser <**> helper) $ fullDesc <> progDesc desc) >>= runEff . app -- cgit v1.2.1