diff --git a/src/Dodge/Data/AimStance.hs b/src/Dodge/Data/AimStance.hs new file mode 100644 index 000000000..4e70396e0 --- /dev/null +++ b/src/Dodge/Data/AimStance.hs @@ -0,0 +1,16 @@ +{-# LANGUAGE StrictData #-} +{-# LANGUAGE TemplateHaskell #-} + +module Dodge.Data.AimStance (module Dodge.Data.AimStance) where + +import Data.Aeson +import Data.Aeson.TH + +data AimStance + = TwoHandUnder + | TwoHandOver + | TwoHandFlat + | OneHand + deriving (Eq, Ord, Show, Read) --Generic, Flat) + +deriveJSON defaultOptions ''AimStance