相关疑难解决方法(0)

我有很多像这样的代码:

data Post =
    Post
    { postOwner :: Integer
    , postText :: ByteString
    , postDate :: ByteString
    }

sqlToPost :: [SqlValue] -> Post
sqlToPost [owner, text, date] = Post (fromSql owner) (fromSql text) (fromSql date)

(这里使用的图书馆是HDBC).将来,会有很多类似的数据Post和功能sqlToVal.我可以减少这个样板代码sqlToVal吗？