1

http://www.yesodweb.com/book/blog-example-advancedの修正例を実行してい ます

DBEntitySchemaId 型のパラメータ ID を以前は使用していませんでした。導入以来、私は得ています

Handler/Entity.hs:146:34:
    Couldn't match type ‘DBEntitySchemaId -> Route App’
                  with ‘Route (HandlerSite (WidgetT App IO))’
    Expected type: WidgetT
                    App IO ((DBEntitySchemaId -> Route App) -> [(Text, Text)] -> Text)
     Actual type: WidgetT
                    App
                    IO
                    (Route (HandlerSite (WidgetT App IO)) -> [(Text, Text)] -> Text)
   In the first argument of ‘(>>=)’, namely ‘getUrlRenderParams’
   In a stmt of a 'do' block:
     (getUrlRenderParams
      >>=
        (\ urender_akdM
           -> (asWidgetT GHC.Base.. toWidget)
                (toHtml (\ u_akdN -> urender_akdM u_akdN [] EntityR))))

これは、defaultLayout を使用する行を参照します。関連するコードは次のとおりです。

getEntityR :: DBEntitySchemaId -> Handler Html
getEntityR id = do
  oldEntities <- runDB $ selectList [DBEntityDbentitySchemaId ==. id] []
  fields <- runDB $ selectList [DBFieldDbentitySchemaId ==. id, DBFieldFieldTypeId ==. (toSqlKey 1)] []
  mauthId <- maybeAuthId
  ((res, widget), enctype) <- runFormPost (form fields)
  case (mauthId,res) of
    (Just userId, FormSuccess (attributeValues)) -> do
      setMessageI $ MsgSubmittedKarma
      let entity = DBEntity "Test" id
      entId <- runDB $ insert entity
      let fieldsNVals = zip fields attributeValues
      let einfuegen field attributeValue = case (field, attributeValue) of
                                      ((Entity fldId _), (FormSuccess val)) -> do
                                         a <- runDB $ insert (Attribute {attributeEntityId = entId, attributeDbfieldId = fldId, attributeStringValue =  val})
                                         return (Just a)
                                      _ -> return Nothing
      _ <- forM fieldsNVals (\(field, attributeValue) -> einfuegen field attributeValue)

      redirect $ (EntityR id)
    _ -> do        
      --render <- getUrlRenderParams
      --return $ renderHtml $ [hamlet|
      defaultLayout [whamlet|
          $if null oldEntities
              <p>There are no entities
          $else
              <ul>
                  $forall Entity entityId entity  <- oldEntities
                      <li>
                          <p>#{dBEntityName entity}
          $if mauthId == Nothing
              <form method=post action=@{EntityR} enctype=#{enctype}>
                  <input type=submit value=_{MsgPleaseLogin}>
          $else
              <form method=post action=@{EntityR} enctype=#{enctype}>
                  ^{widget}
                  <input type=submit>
      |]

私がすでに試したことは、whamlet を hamlet に変更し、ここからいくつかのコード行を追加することでした (コメントアウト)。

hamlet を使用して yesod でメールを送信しようとしています

変化する

[whamlet|

に

[whamlet|@{getEntityR}/#{id}|

と

[whamlet||@?{urlParams id}|

そして、これに触発されたいくつかのバリエーション

クエリ パラメータで URL を表示する https://groups.google.com/forum/#!topic/yesodweb/q1gtkOgM32I

少しの修正しかないと思います。ただし、whamlet/hamlet についての私の理解はあまり高くありません。些細な問題の場合に備えて、これを投稿しています。私はもっ​​と仕事をする必要があることを完全に理解しています.私は自分の問題をグーグルで検索するのに苦労しています. だから我慢してください。

4

1 に答える 1

2

@{EntityR}ルートを変更した後、新しく追加されたパラメーターを次のような補間に渡すのを忘れました@{EntityR param}。

于 2016-02-13T17:11:06.477 に答える