{-# 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)