diff --git a/src/Main.hs b/src/Main.hs index 0491b98..a5bac9a 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -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"