From 918e3a8d5a35a20ba05773dcea3b034f9c7e4d89 Mon Sep 17 00:00:00 2001 From: intractable Date: Sat, 5 Aug 2017 23:46:12 -0500 Subject: [PATCH] Derive Read instance for StatusCode (#27) --- src/Network/GRPC/Unsafe/Op.chs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Network/GRPC/Unsafe/Op.chs b/src/Network/GRPC/Unsafe/Op.chs index e7c82e2..fd8bc01 100644 --- a/src/Network/GRPC/Unsafe/Op.chs +++ b/src/Network/GRPC/Unsafe/Op.chs @@ -18,7 +18,7 @@ import Foreign.Ptr {#context prefix = "grpc" #} {#enum grpc_op_type as OpType {underscoreToCase} deriving (Eq, Show)#} -{#enum grpc_status_code as StatusCode {underscoreToCase} deriving (Eq, Show)#} +{#enum grpc_status_code as StatusCode {underscoreToCase} deriving (Eq, Read, Show)#} -- NOTE: We don't alloc the space for the enum in Haskell because enum size is -- implementation-dependent. See: