From e6bb7ac75305abcf563480d602fce8ae61ed14e0 Mon Sep 17 00:00:00 2001 From: justin Date: Tue, 3 Jun 2025 22:21:01 +0100 Subject: [PATCH] Add file --- src/Dodge/Data/AimStance.hs | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 src/Dodge/Data/AimStance.hs 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