uniworx/uniworx.de
3
0
Fork 0
Code Issues 7 Pull Requests 3 Actions Packages Projects Releases Wiki Activity

refactor metadata

Browse Source
This commit is contained in:
Sarah Vaupel 2023-11-29 13:25:35 +01:00
parent 430a4c78d1
commit cb876c0acc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Main.hs
View File

@ -68,7 +68,7 @@ metadataShow :: [Item w] -> Compiler [Item w]
metadataShow = filterM $ \Item{itemIdentifier} -> maybe (True :: Bool) read <$> getMetadataField itemIdentifier "show" metadataShow = filterM $ \Item{itemIdentifier} -> maybe (True :: Bool) read <$> getMetadataField itemIdentifier "show"
metadata :: [Item w] -> Compiler [Item w] metadata :: [Item w] -> Compiler [Item w]
metadata = metadataSort <=< metadataShow metadata = metadataShow >=> metadataSort
unwrapped :: Snapshot unwrapped :: Snapshot
unwrapped = "unwrapped" unwrapped = "unwrapped"