Change the format to a list

src/Data/Buuka.hs

@@ -11,10 +11,6 @@ module Data.Buuka
   )
   where
 
-import Data.Map
-       (Map)
-import qualified Data.Map.Strict as M
-
 import Database.Migrations
 
 import Data.Aeson
@@ -38,12 +34,12 @@ data BuukaEntry
 instance SafeJSON BuukaEntry where
   type Version BuukaEntry = 0
 
-newtype Buuka = Buuka ( Map URL BuukaEntry )
+newtype Buuka = Buuka [BuukaEntry]
   deriving stock (Show, Eq)
   deriving newtype (Semigroup, Monoid, FromJSON, ToJSON)
 
 insert :: BuukaEntry -> Buuka -> Buuka
-insert e (Buuka b) = Buuka (M.insert (url e) e b)
+insert e (Buuka b) = Buuka (e : b)
 
 instance SafeJSON Buuka where
   type Version Buuka = 0