hsm-status/Hsm/Status/Error.hs


1
2
3
4
5
6
7
8
9
10
11
12
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)