Cleanup, remove DeriveGeneric language extensions
This commit is contained in:
@@ -1,17 +1,15 @@
|
||||
{-# LANGUAGE DeriveGeneric #-}
|
||||
--{-# LANGUAGE DeriveAnyClass #-}
|
||||
{-# LANGUAGE StrictData #-}
|
||||
{-# LANGUAGE TemplateHaskell #-}
|
||||
|
||||
module Dodge.Data.Creature.Stance
|
||||
( module Dodge.Data.Creature.Stance
|
||||
, module Dodge.Data.AimStance
|
||||
)where
|
||||
module Dodge.Data.Creature.Stance (
|
||||
module Dodge.Data.Creature.Stance,
|
||||
module Dodge.Data.AimStance,
|
||||
) where
|
||||
|
||||
import Dodge.Data.AimStance
|
||||
import Control.Lens
|
||||
import Data.Aeson
|
||||
import Data.Aeson.TH
|
||||
import Dodge.Data.AimStance
|
||||
import Geometry.Data
|
||||
|
||||
data Stance = Stance
|
||||
@@ -22,7 +20,7 @@ data Stance = Stance
|
||||
deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
||||
|
||||
data Carriage
|
||||
= Walking { _strideAmount :: Float , _currentFoot :: FootForward }
|
||||
= Walking {_strideAmount :: Float, _currentFoot :: FootForward}
|
||||
| Standing
|
||||
| Floating
|
||||
| Flying
|
||||
|
||||
Reference in New Issue
Block a user