microfixes

1 files changed, 1 insertions, 1 deletions

diff --git a/Tags.hs b/Tags.hs
index c407dfd..9893fcb 100644
--- a/Tags.hs
+++ b/Tags.hs
@@ -55,7 +55,7 @@ sourceTagMetaFile fp = do
                   kx = splitTag ks
                   v
                     | Y.String t <- v' =
-                      Y.Object $ KM.fromList [("name", Y.String t)]
+                      Y.object [("name", Y.String t)]
                     | Y.Object _ <- v' = v'
                     | otherwise =
                       error ("invalid definition of tag " ++ ks ++ " in " ++ fp)