From 8f9eceffae1d0e4eb0b2fbcb22b70730bb75bd5e Mon Sep 17 00:00:00 2001
From: Paul Oliver <contact@pauloliver.dev>
Date: Fri, 5 Sep 2025 00:13:52 +0000
Subject: Adds optparse helper to `hsm-core`

---
 hsm-core/Hsm/Core/Options.hs | 8 ++++++++
 hsm-core/hsm-core.cabal      | 2 ++
 2 files changed, 10 insertions(+)
 create mode 100644 hsm-core/Hsm/Core/Options.hs

(limited to 'hsm-core')

diff --git a/hsm-core/Hsm/Core/Options.hs b/hsm-core/Hsm/Core/Options.hs
new file mode 100644
index 0000000..eeeee97
--- /dev/null
+++ b/hsm-core/Hsm/Core/Options.hs
@@ -0,0 +1,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
diff --git a/hsm-core/hsm-core.cabal b/hsm-core/hsm-core.cabal
index 67a63e2..e435f19 100644
--- a/hsm-core/hsm-core.cabal
+++ b/hsm-core/hsm-core.cabal
@@ -7,6 +7,7 @@ library
   build-depends:
     , base
     , effectful-core
+    , optparse-applicative
     , template-haskell
     , transformers
 
@@ -14,5 +15,6 @@ library
   exposed-modules:
     Hsm.Core.Bracket
     Hsm.Core.Serial
+    Hsm.Core.Options
 
   ghc-options:      -O2 -Wall -Werror -Wno-star-is-type -Wunused-packages
-- 
cgit v1.2.1