例:1つのテキストフィールドの値を1,2,3文字目からなるタプルに変換
sampleForm :: Form (Char, Char, Char)
sampleForm = renderDivs $ ((,,)
<$> (!! 0) . unpack
<*> (!! 1) . unpack
<*> (!! 2) . unpack
) <$> areq textField "text" Nothing
More than 5 years have passed since last update.
例:1つのテキストフィールドの値を1,2,3文字目からなるタプルに変換
sampleForm :: Form (Char, Char, Char)
sampleForm = renderDivs $ ((,,)
<$> (!! 0) . unpack
<*> (!! 1) . unpack
<*> (!! 2) . unpack
) <$> areq textField "text" Nothing
Register as a new user and use Qiita more conveniently