module HOCD.Error
  ( OCDError(..)
  ) where

import Data.ByteString (ByteString)
import HOCD.Types (RegisterName)

data OCDError
  = OCDError_ReplyMissingSubOnEnd ByteString
  | OCDError_FailedToSetRegister RegisterName
  | OCDError_GetAddrInfoFailed
  | OCDError_ParseMemory String
  | OCDError_ParseRegisters String
  | OCDError_ExpectedOneButGotMore
  deriving (OCDError -> OCDError -> Bool
(OCDError -> OCDError -> Bool)
-> (OCDError -> OCDError -> Bool) -> Eq OCDError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: OCDError -> OCDError -> Bool
== :: OCDError -> OCDError -> Bool
$c/= :: OCDError -> OCDError -> Bool
/= :: OCDError -> OCDError -> Bool
Eq, Int -> OCDError -> ShowS
[OCDError] -> ShowS
OCDError -> String
(Int -> OCDError -> ShowS)
-> (OCDError -> String) -> ([OCDError] -> ShowS) -> Show OCDError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> OCDError -> ShowS
showsPrec :: Int -> OCDError -> ShowS
$cshow :: OCDError -> String
show :: OCDError -> String
$cshowList :: [OCDError] -> ShowS
showList :: [OCDError] -> ShowS
Show)