Unexpected behavior with Strict + DeriveFunctor

StrictDeriving.hs

{-# LANGUAGE Strict #-}
{-# LANGUAGE DeriveFunctor #-}

module StrictDeriving where

newtype Id1 a = Id1 a
    deriving (Functor, Show)
    
-- >>> fmap (const 2 . const undefined) (Id1 1)
-- Id1 2

-- >>> (fmap (const 2) . fmap (const undefined)) (Id1 1)
-- undefined

newtype Id2 a = Id2 a
    deriving Show

instance Functor Id2 where
    fmap f ~(Id2 a) = Id2 (f a)
    
-- >>> fmap (const 2 . const undefined) (Id2 1)
-- Id2 2

-- >>> (fmap (const 2) . fmap (const undefined)) (Id2 1)
-- Id2 2