Thread: don't infix a map lookup

2015-07-29 20:39:49 -07:00 · 2015-07-29 20:39:49 -07:00 · 0b1489f00e
parent 106a061a8e
commit 0b1489f00e
1 changed files with 1 additions and 1 deletions
--- 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."