exa/reploy
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

format

Browse source
This commit is contained in:
Mirek Kratochvil 2023-10-20 09:05:29 +02:00
parent 4fb6f81d83
commit 25bdade319
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Tags.hs
View file

@ -54,8 +54,7 @@ sourceTagMetaFile fp = do
let ks = K.toString k let ks = K.toString k
kx = splitTag ks kx = splitTag ks
v v
| Y.String t <- v' = | Y.String t <- v' = Y.object [("name", Y.String t)]
Y.object [("name", Y.String t)]
| Y.Object _ <- v' = v' | Y.Object _ <- v' = v'
| otherwise = | otherwise =
error ("invalid definition of tag " ++ ks ++ " in " ++ fp) error ("invalid definition of tag " ++ ks ++ " in " ++ fp)