Test the encoding and decoding

src/Data/Buuka.hs

@@ -5,6 +5,7 @@ module Data.Buuka
   , BuukaU(..)
   , BuukaEntry(..)
   , URL(..)
+  , Buuka
 
   , insert
   )
@@ -38,6 +39,7 @@ instance SafeJSON BuukaEntry where
   type Version BuukaEntry = 0
 
 newtype Buuka = Buuka ( Map URL BuukaEntry )
+  deriving stock (Show, Eq)
   deriving newtype (Semigroup, Monoid, FromJSON, ToJSON)
 
 insert :: BuukaEntry -> Buuka -> Buuka