Formatting only GADT with "indent 2" instead of "same_line"

[0xmycf]

SH formats my GADTs instead of this:

data Foo a where
  SomeA :: String -> Foo ()
  SomeB :: Bool   -> Foo String
  SomeC :: String -> Foo ()

like this:

data Foo a where SomeA :: String -> Foo ()
                 SomeB :: Bool -> Foo String
                 SomeC :: String -> Foo ()

This is probably due to this setting

  - records:
      equals: "same_line"
#   instead of 
#   equals: "indent 2"

Is there some way to distinguish between GADTs and normal records so I can keep the "same_line" option but format GADT with an indent?

[srgtmshnk]

weird, i cant even exec stylish-haskell with equals "same_line"

app/Effectful/Cereal.hs: <string>:68:41: error: parse error on input ::'

data BinGet :: Effect where
    GetWord8        (here):: BinGet m Word8