1 2 3 4 5 6 7
{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE DataKinds #-} pattern PATTERN = () wrongLift :: PATTERN wrongLift = undefined