From cb876c0accef98cb31ac1badb1e50a90fa9972c2 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@protonmail.com>
Date: Wed, 29 Nov 2023 13:25:35 +0100
Subject: [PATCH] refactor metadata

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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"