From d5063eaef93f959c3605948d4c9a7c9ca788f678 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Fri, 18 Oct 2019 23:45:13 +0000
Subject: [PATCH] S2S: FIx bug in parsing Follow object

---
 src/Vervis/Federation/Offer.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Vervis/Federation/Offer.hs b/src/Vervis/Federation/Offer.hs
index 443224e..19a611e 100644
--- a/src/Vervis/Federation/Offer.hs
+++ b/src/Vervis/Federation/Offer.hs
@@ -226,8 +226,8 @@ followF
             local <- hostIsLocal hObj
             return $
                 if local
-                    then Nothing
-                    else objRoute =<< decodeRouteLocal luObj
+                    then objRoute =<< decodeRouteLocal luObj
+                    else Nothing
         case mobj of
             Nothing -> return "Follow object unrelated to me, ignoring activity"
             Just obj -> do