From dc6bf1472c930ff1448c419d3205148bce1b787e Mon Sep 17 00:00:00 2001
From: Paul Oliver <contact@pauloliver.dev>
Date: Thu, 16 Jan 2025 18:26:16 -0800
Subject: Adds error and dummy-fail service

---
 hsm-status/Hsm/Status/Error.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 hsm-status/Hsm/Status/Error.hs

(limited to 'hsm-status/Hsm/Status')

diff --git a/hsm-status/Hsm/Status/Error.hs b/hsm-status/Hsm/Status/Error.hs
new file mode 100644
index 0000000..2853d6b
--- /dev/null
+++ b/hsm-status/Hsm/Status/Error.hs
@@ -0,0 +1,13 @@
+{-# LANGUAGE DeriveAnyClass #-}
+
+module Hsm.Status.Error
+  ( Error(Error)
+  ) where
+
+import Data.Binary (Binary)
+import Data.Text (Text)
+import GHC.Generics (Generic)
+
+data Error =
+  Error Int Text
+  deriving (Binary, Generic, Show)
-- 
cgit v1.2.1