haskell - 永続的な `get` と `toSqlKey` の使用

Answer 1

違いは、 ではなくget ...プレーンを返すことです。したがって、これは機能します。UserEntity User

altSingleUser :: Int64 -> App User
altSingleUser userid = do
    let foo = get (toSqlKey userid) :: SqlPersistT IO (Maybe User)
    maybeUser <- runDb $ foo
    case maybeUser of
         Nothing ->
            throwError err404
         Just person ->
            return person

を返したい場合はEntity User、最後の return ステートメントを次のように変更します。

return $ Entity { entityKey = toSqlKey userid, entityVal = person }