{-# OPTIONS_HADDOCK hide #-}
module Brillo.Internals.Interface.Simulate.State (
State (..),
stateInit,
)
where
data State
= State
{ State -> Integer
stateIteration :: !Integer
, State -> Int
stateResolution :: !Int
, State -> Float
stateSimTime :: !Float
}
stateInit :: Int -> State
stateInit :: Int -> State
stateInit Int
resolution =
State
{ stateIteration :: Integer
stateIteration = Integer
0
, stateResolution :: Int
stateResolution = Int
resolution
, stateSimTime :: Float
stateSimTime = Float
0
}