Bump stackage version, uses later version of GHC

This commit is contained in:
2022-08-22 16:56:11 +01:00
parent aeb22fc9d7
commit 715008a030
43 changed files with 141 additions and 124 deletions
+16 -8
View File
@@ -1,8 +1,8 @@
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Dodge.Data.Creature (
module Dodge.Data.Creature,
@@ -73,23 +73,31 @@ data Creature = Creature
, _crStatistics :: CreatureStatistics
, _crCamouflage :: CamouflageStatus
}
--deriving (Eq, Show, Read) --Generic, Flat)
--deriving (Eq, Show, Read) --Generic, Flat)
data CreatureCorpse = MakeDefaultCorpse
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
--deriving (Eq, Ord, Show, Read) --Generic, Flat)
data Intention = Intention
{ _targetCr :: Maybe Creature
, _mvToPoint :: Maybe Point2
, _viewPoint :: Maybe Point2
}
--deriving (Eq, Show, Read) --Generic, Flat)
--deriving (Eq, Show, Read) --Generic, Flat)
crSel :: Creature -> Int
crSel = _iselPos . _crInvSel
makeLenses ''Creature
makeLenses ''Intention
deriveJSON defaultOptions ''Creature
deriveJSON defaultOptions ''CreatureCorpse
deriveJSON defaultOptions ''Intention
concat
<$> mapM
(deriveJSON defaultOptions)
[ ''CreatureCorpse
, ''Creature
, ''Intention
]