From 4d376b47b7aa506c4f4a4c5ccc83ca2ef1aeacc2 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 22 Apr 2013 20:24:53 -0400
Subject: expose Control.Monad.join

I think I've been looking for that function for some time.
Ie, I remember wanting to collapse Just Nothing to Nothing.
---
 Remote.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Remote.hs')

diff --git a/Remote.hs b/Remote.hs
index e722542a8..ea9317282 100644
--- a/Remote.hs
+++ b/Remote.hs
@@ -238,7 +238,7 @@ showTriedRemotes :: [Remote] -> Annex ()
 showTriedRemotes [] = noop
 showTriedRemotes remotes =
 	showLongNote $ "Unable to access these remotes: " ++
-		join ", " (map name remotes)
+		intercalate ", " (map name remotes)
 
 forceTrust :: TrustLevel -> String -> Annex ()
 forceTrust level remotename = do
-- 
cgit v1.2.3