Fix attackEffects in boardToInPlaceCells.

Unfortunately symbols didn't work because of
kcsongor/generic-lens#96. Had to revert to field' has
someome suggests on the issue.

app/client/View.hs

@@ -3,6 +3,7 @@
 {-# LANGUAGE OverloadedLabels #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE TypeApplications #-}
 
 module View where
 
@@ -11,6 +12,7 @@ import Card
 import Constants
 import Control.Lens
 import Data.Generics.Labels
+import Data.Generics.Product
 import Data.List
 import qualified Data.Map.Strict as Map
 import Data.Maybe (fromJust, fromMaybe, isJust, isNothing, mapMaybe, maybeToList)
@@ -73,8 +75,7 @@ boardToInPlaceCells z Model {anims, board, interaction} =
             cSpot `elem` emptyPlayingPlayerSpots
               && pSpot == playingPlayerSpot,
       let attackEffect =
-            (anims ^. spotToLens pSpot . #inPlace & unwrap)
-              Map.!? cSpot & flip fromMaybe mempty,
+            anims ^. spotToLens pSpot . field' @"inPlace" . #unAttackEffects . ix cSpot,
       -- draw border around some cards if:
       -- 1/ card in hand is being hovered or dragged -> draw borders around
       --    valid drag targets

app/shared/Board.hs

@@ -117,7 +117,10 @@ instance Semigroup AttackEffect where
           hitPointsChange = hp1 + hp2
         }
 
-newtype AttackEffects = AttackEffects (Map.Map CardSpot AttackEffect)
+instance Monoid AttackEffect where
+  mempty = AttackEffect { death = False, attackBump = False, hitPointsChange = 0 }
+
+newtype AttackEffects = AttackEffects { unAttackEffects :: Map.Map CardSpot AttackEffect }
   deriving (Eq, Generic)
 
 instance Semigroup AttackEffects where