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