From c5b85d11a98668e4e93bb4c157bac22633bbada0 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Tue, 27 Sep 2022 10:52:31 +0000
Subject: [PATCH] UI: Since getLoomR doesn't have UI, redirect to LoomClothsR

---
 src/Vervis/Handler/Loom.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/Vervis/Handler/Loom.hs b/src/Vervis/Handler/Loom.hs
index d627ef6..30dec83 100644
--- a/src/Vervis/Handler/Loom.hs
+++ b/src/Vervis/Handler/Loom.hs
@@ -119,9 +119,7 @@ getLoomR loomHash = do
                 }
             }
 
-    provideHtmlAndAP loomAP $ redirectToPrettyJSON here
-    where
-    here = LoomR loomHash
+    provideHtmlAndAP loomAP $ redirect $ LoomClothsR loomHash
 
 getLoomInboxR :: KeyHashid Loom -> Handler TypedContent
 getLoomInboxR = getInbox LoomInboxR loomActor