Haddocks for pattern synonym fields

It's currently not possible to attach haddocks to (record) pattern synonym fields:

{-# LANGUAGE PatternSynonyms #-}

module Lib where

pattern MyJust :: a -> Maybe a
pattern MyJust
  foo -- ^ blah
  <- Just foo

pattern MyJust2 :: a -> Maybe a
pattern MyJust2
  { foo -- ^ blah
  } <- Just foo

I'm not sure if that's by design or not.

To upload designs, you'll need to enable LFS and have an admin enable hashed storage. More information