Addition of ToJSON/FromJSON instances for BlockNo

IntersectMBO · Mar 16, 2023 · d305388 · d305388
1 parent dd15fa6
commit d305388
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/cardano-slotting/CHANGELOG.md b/cardano-slotting/CHANGELOG.md
@@ -2,6 +2,7 @@
 
 ## 0.1.1.0
 
+* Addition of `ToJSON`/`FromJSON` instances for `BlockNo`
 * Addition of `ToJSON`/`FromJSON` instances for `SystemStart`
 * Addition of `ToCBOR`/`FromCBOR` instances for `RelativeTime` and `SlotLength`
 

diff --git a/cardano-slotting/src/Cardano/Slotting/Block.hs b/cardano-slotting/src/Cardano/Slotting/Block.hs
@@ -10,6 +10,7 @@ where
 import Cardano.Binary (FromCBOR (..), ToCBOR (..))
 import Codec.Serialise (Serialise (..))
 import Control.DeepSeq (NFData)
+import Data.Aeson (ToJSON, FromJSON)
 import Data.Word (Word64)
 import GHC.Generics (Generic)
 import NoThunks.Class (NoThunks)
@@ -21,7 +22,7 @@ import Quiet (Quiet (..))
 newtype BlockNo = BlockNo {unBlockNo :: Word64}
   deriving stock (Eq, Ord, Generic)
   deriving Show via Quiet BlockNo
-  deriving newtype (Enum, Bounded, Num, Serialise, NoThunks, NFData)
+  deriving newtype (Enum, Bounded, Num, Serialise, NoThunks, NFData, ToJSON, FromJSON)
 
 instance ToCBOR BlockNo where
   toCBOR = encode