mysql - Esqueleto where on エンティティ ID

Question

私は Yesod のSQL Joinsの例に従ってきましたが、Inner Join の例にも句を追加したいと思いますwhere_- 著者 ID が 1 より大きいブログのみを表示する必要があります。

私の間違いはおそらく私がやっていることだと思いますが、それE.val 1を渡す方法がわかりませんKey

getHomeR :: Handler Html
getHomeR = do
    blogs <- runDB
           $ E.select
           $ E.from $ \(blog `E.InnerJoin` author) -> do
                E.on $ blog ^. BlogAuthor E.==. author ^. AuthorId
                E.where_ $ author ^. AuthorId E.>. (E.val 1) -- how to pass ID 1
                E.limit 5
                return
                    ( blog   ^. BlogId
                    , blog   ^. BlogTitle
                    , author ^. AuthorName
                    )