List and format

src/Data/Buuka.hs

@@ -8,6 +8,7 @@ module Data.Buuka
   , Buuka
 
   , insert
+  , elements
   )
   where
 
@@ -41,6 +42,9 @@ newtype Buuka = Buuka [BuukaEntry]
 insert :: BuukaEntry -> Buuka -> Buuka
 insert e (Buuka b) = Buuka (e : b)
 
+elements :: Buuka -> [BuukaEntry]
+elements (Buuka b) = b
+
 instance SafeJSON Buuka where
   type Version Buuka = 0