Thread: don't infix a map lookup

This commit is contained in:
Christine Dodrill 2015-07-29 20:39:49 -07:00
parent 106a061a8e
commit 0b1489f00e
1 changed files with 1 additions and 1 deletions

View File

@ -18,7 +18,7 @@ render pageNumber posts users = do
H.div ! A.class_ "row" $ do H.div ! A.class_ "row" $ do
forM_ posts $ \post -> 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 Just u -> u
Nothing -> error "Can't find user? Impossible state." Nothing -> error "Can't find user? Impossible state."