diff --git a/web/src/Within/DBMemorial/Views/Thread.hs b/web/src/Within/DBMemorial/Views/Thread.hs
index 9eb650f..9cf8eb7 100644
--- a/web/src/Within/DBMemorial/Views/Thread.hs
+++ b/web/src/Within/DBMemorial/Views/Thread.hs
@@ -18,7 +18,7 @@ render pageNumber posts users = do
 
     H.div ! A.class_ "row" $ do
       forM_ posts $ \post -> do
-        let user = case (Post.author post) `Map.lookup` users of
+        let user = case Map.lookup (Post.author post) users of
                 Just u -> u
                 Nothing -> error "Can't find user? Impossible state."