From 0b1489f00ee291c3be54db435a766392482a02e4 Mon Sep 17 00:00:00 2001
From: Christine Dodrill <xena@yolo-swag.com>
Date: Wed, 29 Jul 2015 20:39:49 -0700
Subject: [PATCH] Thread: don't infix a map lookup

---
 web/src/Within/DBMemorial/Views/Thread.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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."