Adds error and dummy-fail service

1 files changed, 13 insertions, 0 deletions

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)