diff --git a/test/CorpusSpec.hs b/test/CorpusSpec.hs
index 92de8005d..2f20fd778 100644
--- a/test/CorpusSpec.hs
+++ b/test/CorpusSpec.hs
@@ -58,7 +58,7 @@ examples directory = do
 
   let lookupName name = (lookupNormalized name as, lookupNormalized name bs, lookupNormalized name jsons, lookupNormalized name patches, lookupNormalized name splits)
 
-  let keys = normalizeName <$> union as bs
+  let keys = union (normalizeName <$> as) (normalizeName <$> bs)
   pure $ lookupName <$> keys
   where
     lookupNormalized name = find $ (== name) . normalizeName