使用Yesod.Persist选择日期范围内的记录

import Database.Persist.Sql (selectList, (<=.), (>=.))
import Database.Persist.Types (Filter)
import Data.Time (UTCTime)

getRecordsByDateRange :: UTCTime -> UTCTime -> Handler [Entity YourRecord]
getRecordsByDateRange startDate endDate = do
    selectList [YourRecordDate >=. startDate, YourRecordDate <=. endDate] []

getMyHandlerR :: Handler Html
getMyHandlerR = do
    let startDate = -- 设置开始日期
        endDate = -- 设置结束日期
    records <- getRecordsByDateRange startDate endDate
    -- 处理获取到的记录
    defaultLayout $ do
        -- 渲染记录到HTML页面