moveToEntity v (Enemy' e) = case e of
  (BigSpider       _ _) -> hp -~ 2
  (Arrow True      _ _) -> hp -~ 2
  (Arrow False     _ _) -> id 
  (Shopkeeper True _ _) -> (hp -~ 1) . (p_state .~ Stunned)
  (Boulder True    _ _) -> hp -~ 5
  (Boulder False   _ _) -> id
  _               -> hp -~ 1
moveToEntity v (Enemy' e) = case e of
  (BigSpider       _ _) -> hp -~ 2
  (Arrow True      _ _) -> hp -~ 2
  (Arrow False     _ _) -> id 
  (Shopkeeper True _ _) -> (hp -~ 1) . (p_state .~ Stunned)
  (Boulder True    _ _) -> hp -~ 5
  (Boulder False   _ _) -> id
  _               -> hp -~ 1
moveToEntity v (Enemy' e) = case e of
  (BigSpider       _ _) -> hp -~ 2
  (Arrow True      _ _) -> hp -~ 2
  (Arrow False     _ _) -> id 
  (Shopkeeper True _ _) -> (hp -~ 1) . (p_state .~ Stunned)
  (Boulder True    _ _) -> hp -~ 5
  (Boulder False   _ _) -> id
  _               -> hp -~ 1