index
[cleanm.git] / index.icl
index d1b4359..95032d1 100644 (file)
--- a/index.icl
+++ b/index.icl
@@ -16,11 +16,13 @@ derive JSONDecode RTree, FileInfo, Tm, MaybeError
 :: MusicDB =
        { mdb_format :: [Format]
        , mdb_tree   :: RTree
-:: Tag =
-       { tag_key   :: !String
-       , tag_value :: !String
        }
 
+//:: Tag =
+//     { tag_key   :: !String
+//     , tag_value :: !String
+//     }
+
 dbfile = "db.json"
 root = "/mnt/data/music"