機能するアプリケーション フォームがありますが、モデル内のどのフィールドにも対応しない textField を追加したいと考えています。1 つのフィールドを除いて、すべて正常に動作しています。私のモデルの一部は、アップロードのタイムスタンプを表す UTCTime 値です。適用可能なフォームでは、次のコードがありました。
-- some stuff
<*> aformM (liftIO getCurrentTime)
-- more stuff
モナド形式の aformM に相当するものを見つけることができないようです。私は次のことを試しました:
(timeRes, timeView) <- mformM (liftIO getCurrentTime)
areq/mreq、aopt/mopt などと同様に、モナド形式に同等の関数があることを期待していますが、私のコードはコンパイルされません。だから、私の質問は: モナド形式を使用して現在のタイムスタンプを取得する方法はありますか?