代码之家 › 专栏 › 技术社区 › crazhyouse

Purescript卤素,副作用(随机数)

halogen purescript state random

crazhyouse · 技术社区 · 8 年前

在PureScript卤素项目中,我想将状态设置为随机数,但如何提取值?正常的

r <- randomInt 1 10

当它位于eval函数内部时,不会编译。

module Main where

import Prelude
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.Random (randomInt, RANDOM)
import Halogen as H
import Halogen.HTML.Events.Indexed as HE
import Halogen.HTML.Indexed as HH
import Halogen.Util (runHalogenAff, awaitBody)

type State = { n::Int }

initialState :: State
initialState = { n: 3}

data Query a = NewRandom a

ui :: forall e. H.Component { n :: Int } Query e
ui =
    H.component { render, eval }
    where
    render :: State -> H.ComponentHTML Query
    render state =
        HH.button
            [ HE.onClick $ HE.input_ NewRandom ]
            [ HH.text $ show state.n ]


    eval :: Query ~> H.ComponentDSL State Query e
    eval (NewRandom next) = do
        H.modify (\state -> state { n=12 } )

        --I'd like to set n to a random number
        --but I don't know how.
        --let r = randomInt 1 10
        --H.modify (\state -> state { n=r } )
        pure next

main :: Eff (H.HalogenEffects ()) Unit
main =
    runHalogenAff do
    body <- awaitBody
    H.runUI ui initialState body

1 回复 | 直到 8 年前

gb. 8 年前

您需要在您的 ComponentDSL (如果您有 e 输入var currently)使其成为可能,然后可以使用 H.fromEff 举起 randomInt :

module Main where

import Prelude
import Control.Monad.Aff (Aff)
import Control.Monad.Eff (Eff)
import Control.Monad.Eff.Random (randomInt, RANDOM)
import Halogen as H
import Halogen.HTML.Events.Indexed as HE
import Halogen.HTML.Indexed as HH
import Halogen.Util (runHalogenAff, awaitBody)

type State = { n::Int }

initialState :: State
initialState = { n: 3}

data Query a = NewRandom a

ui :: forall eff. H.Component { n :: Int } Query (Aff (random :: RANDOM | eff))
ui =
    H.component { render, eval }
    where
    render :: State -> H.ComponentHTML Query
    render state =
        HH.button
            [ HE.onClick $ HE.input_ NewRandom ]
            [ HH.text $ show state.n ]


    eval :: Query ~> H.ComponentDSL State Query (Aff (random :: RANDOM | eff))
    eval (NewRandom next) = do
        r <- H.fromEff $ randomInt 1 10
        H.modify (\state -> state { n=r } )
        pure next

main :: forall eff. Eff (H.HalogenEffects (random :: RANDOM | eff)) Unit
main =
    runHalogenAff do
    body <- awaitBody
    H.runUI ui initialState body

(旁白:如果你正在做有效的事情,即使你只需要 Eff ,最容易使用 Aff 作为 组件DSL monad,当您使用 runUI 它希望它是 Aff公司 -可以使用以下命令更改monad interpret Halogen.Component 模块,但由于您只使用 interpret liftAff 无论如何,你最好直接去 Aff公司 .)

看看 "Non-state effects" section of the guide ,或 AJAX example 有关跑步效果的详细信息,请参见 eval .

推荐文章

zuZuu · React Redux-无法设置未定义的属性(设置“value”)

2 年前

john4ster · 对父级不更改状态的响应回调

2 年前

noiseymur · TypeError:useState不是函数或其返回值不可编辑

2 年前

Dylan L. · 为什么更新的状态没有返回到我的组件?

2 年前

Ram John · 如何更新字符串的previewState并保留最后一个值

2 年前

kuk · 如何在React中回调后动态更改状态的对象值?

2 年前

Rodrigo Gil · React JS:更新父组件时子组件的状态更改

2 年前

Tú Nguyá»n · 更新状态时,我的输入没有更新值

2 年前

Samuel Zrna · 如何在React TS中为对象(地图数据结构)中的每个项目呈现自定义元素?

2 年前

Lucio Zenir · 如何使用材质UI在react上动态创建选择和状态?

6 年前