Yesod - 帶外鍵的表格

Question

我正在用Yesod開發我的第一個應用程序，並且我正在創建一些CRUD API。

我有一個模型，看起來像

User json 
    ... 

Activity json 
    userId UserId 
    ... 

其中userId是一個外鍵。

我需要創建一個端點才能創建一個新的活動，並且客戶端需要能夠指定userId。

要做到這一點，我使用像

postCreateActivityR :: Hadler Value 
postCreateActivityR = do 
    activity <- runInputPost $ Activity 
     <$> ... 
     <*> ireq textField "userId" 
    ... 

否則，形式我得到像下面這樣的錯誤：

Couldn't match type ‘Text’ with ‘Key User’ expected type: FormInput (HandlerT App IO) (Key User) 

有沒有辦法解決這個問題的標準方式？

Answer 1

對於記錄，這是我如何解決它到底

我不得不創建一個新的領域

userIdField :: (Monad m, RenderMessage (HandlerSite m) FormMessage) => Field m UserId 
userIdField = Field 
    { fieldParse = parseHelper $ \s -> 
     case signed decimal s of 
      Right (a, "") -> Right $ toSqlKey a 
      _ -> Left $ MsgInvalidInteger s 
    , fieldView = \_ _ _ _ _ -> "" 
    , fieldEnctype = UrlEncoded 
    } 

，然後使用它像

<*> ireq userIdField "userId" 

Answer 2

如果您正在使用SQL後端，則Database.Persist.Sql模塊中有toSqlKey。由於您獲得Text，您首先需要使用Data.Text.Read將其轉換爲Int64。