{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE StrictData #-}
module Dodge.Creature.AlertLevel.Data
    where
import Control.Lens

data AwakeLevel
    = Comatose
    | Asleep
    | Lethargic
    | Vigilant
    | Overstrung

data AttentionDir
    = AttentiveTo {_unAttentiveTo :: [Int]}
    | Fixated {_unFixated :: Int }

data AwarenessLevel
    = AwarenessInt Int
    | Cognizant Int

makeLenses ''AttentionDir