newShot :: (MonadState Game m) => m ()
newShot = do
  game <- get
  ccraft <- gets (_getCraft . _craft)
  cshots <- gets (_getShots . _shots)
  let  nshot = moveSh [ccraft]
  shots .= Shots (nshot: cshots)

=============================================================================================

app/Main.hs:116:26: error:
    • Couldn't match type ‘(Int, Int)’ with ‘[Point]’
      Expected type: [[Point]]
        Actual type: [Point]
    • In the second argument of ‘(:)’, namely ‘cshots’
      In the first argument of ‘Shots’, namely ‘(nshot : cshots)’
      In the second argument of ‘(.=)’, namely ‘Shots (nshot : cshots)’
    |
116 |   shots .= Shots (nshot: cshots)