From 1c1938080c0306b346ccf4f16435dc6f07f3aa8e Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Wed, 10 Aug 2016 11:00:40 -0400
Subject: [PATCH] Use either path in output

---
 test/CorpusSpec.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/CorpusSpec.hs b/test/CorpusSpec.hs
index 92c42c996..9eb1ec3a3 100644
--- a/test/CorpusSpec.hs
+++ b/test/CorpusSpec.hs
@@ -39,7 +39,7 @@ spec = parallel $ do
       paths <- runIO $ examples directory
       let tests = correctTests =<< paths
       traverse_ (\ (formatName, renderer, paths, output) ->
-        it (maybe "/dev/null" normalizeName (fst paths) ++ " (" ++ formatName ++ ")") $ testDiff renderer paths output matcher) tests
+        it (maybe "/dev/null" normalizeName (uncurry (<|>) (runJoin paths)) ++ " (" ++ formatName ++ ")") $ testDiff renderer paths output matcher) tests
 
     correctTests paths@(_, _, Nothing, Nothing, Nothing) = testsForPaths paths
     correctTests paths = filter (\(_, _, _, output) -> isJust output) $ testsForPaths paths