Add file

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