refactor metadata

This commit is contained in:
Sarah Vaupel 2023-11-29 13:25:35 +01:00
parent 430a4c78d1
commit cb876c0acc

View File

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