18 lines
495 B
Elm
18 lines
495 B
Elm
module CacheSim.Model exposing (..)
|
|
import CacheSim.Raw exposing (..)
|
|
import CacheSim.Hierarchy exposing (..)
|
|
import CacheSim.AccessView exposing (..)
|
|
|
|
type alias Model =
|
|
{ rawHierarchy : RawCacheModelHierarchy
|
|
, hierarchy : Maybe CacheHierarchy
|
|
, accessView : Maybe AccessView
|
|
}
|
|
type alias Flags = ()
|
|
type Msg
|
|
= ChangeRawModel Int (RawCacheModel -> RawCacheModel)
|
|
| CreateRawModel
|
|
| DeleteRawModel Int
|
|
| UseHierarchy (Maybe CacheModelHierarchy)
|
|
| Access Int
|