永久使用`get`和`toSqlKey`

Question

我試圖在servant中使用persistent-postgresql。

我有一個User模型。

我想要一個端點，它需要一個id並返回帶有該id的用戶。

根據其他答案，我可以使用toSqlKey將Int64轉變爲Key以提供給get。

我的功能看起來像：

oneUser :: Int64 -> App (Entity User) 
oneUser userId = do 
    maybeUser <- runDb $ get $ toSqlKey userId 
    case maybeUser of 
    Nothing -> 
     throwError err404 
    Just user -> 
     return user 

當我嘗試編譯我的錯誤Couldn't match expected type ‘PersistEntityBackend (Entity User)’ with actual type ‘SqlBackend’

使用selectList工作正常。

allUsers :: App [Entity User] 
allUsers = runDb $ selectList [] [] 

請告訴我我做錯了什麼，我應該在未來看看這樣的東西。我找不到get上hackage /庫對stackage權等版本

runDb樣子：

runDb :: (MonadReader Config m, MonadIO m) => SqlPersistT IO b -> m b 
runDb query = do 
    pool <- asks getPool 
    liftIO $ runSqlPool query pool 

從this github project拍攝。

Answer 1

不同的是，get ...返回平原User不是Entity 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 }