UI: Since getLoomR doesn't have UI, redirect to LoomClothsR

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