refactor metadata
This commit is contained in:
parent
430a4c78d1
commit
cb876c0acc
@ -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"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user