Bang patterns ignored in TH quotes

Example:

gen :: Q [Dec]
gen = [d|
  f g = let !x = g 3
            ~y = g 4
         in x + y
  |]

In the splice, the ~ is there, but the ! isn't. One must use bangP to get the !. Is this by design?