15 lines
283 B
Haskell
15 lines
283 B
Haskell
{-# LANGUAGE StrictData #-}
|
|
module Dodge.Data.UseCondition where
|
|
|
|
data UseCondition
|
|
= UseableWhenAimed
|
|
| UseableWhenHeld
|
|
| UseableAnytime
|
|
| NeverUsable
|
|
deriving (Eq, Show, Read)
|
|
|
|
data UseFocus
|
|
= UseFromRoot
|
|
| UseFromLocation
|
|
deriving (Eq, Show, Read)
|