ProtectedFields.hs

{-# LANGUAGE TemplateHaskell #-}
-- | This module holds the functions to access and modify the project name
-- in a reactive model.
module Model.ProtectedModel.ProtectedFields where

-- Internal imports
import Hails.MVC.Model.THFields
import Hails.MVC.Model.ProtectedModel.Reactive

import Model.Model
import qualified Model.ReactiveModel as RM
import Model.ReactiveModel.ModelEvents
import Model.ProtectedModel.ProtectedModelInternals

-- protectedField {- Model field -} {- Field type -}    {- Model name -} {- event name -}
-- protectedField "Language"        [t|Maybe Language|] "Model"          "ModelEvent"
protectedField "SelectedFrame"      [t|Maybe Int|]    "Model"          "ModelEvent"
protectedField "SelectedFrameInput" [t|Maybe String|] "Model"          "ModelEvent"
protectedField "CurSimFrame"        [t|Maybe Int|]    "Model"          "ModelEvent"
protectedField "Frames"             [t|[Frame]|]      "Model"          "ModelEvent"