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 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 hsm-core/Hsm/Core/Options.hs

(limited to 'hsm-core/Hsm')

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
-- 
cgit v1.2.1