From 25bdade3195b357e8dfcb5484c7d1bb9c0d16dcb Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <miroslav.kratochvil@uni.lu>
Date: Fri, 20 Oct 2023 09:05:29 +0200
Subject: [PATCH] format

---
 Tags.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Tags.hs b/Tags.hs
index 5ad315d..f7132d6 100644
--- a/Tags.hs
+++ b/Tags.hs
@@ -54,8 +54,7 @@ sourceTagMetaFile fp = do
               let ks = K.toString k
                   kx = splitTag ks
                   v
-                    | Y.String t <- v' =
-                      Y.object [("name", Y.String t)]
+                    | Y.String t <- v' = Y.object [("name", Y.String t)]
                     | Y.Object _ <- v' = v'
                     | otherwise =
                       error ("invalid definition of tag " ++ ks ++ " in " ++ fp)