BitRepresentation.Deriving fails on tuples

[leonschoorl]

module RepresentTuple where

import Clash.Prelude
import Clash.Annotations.BitRepresentation.Deriving

data AB = A (Bool,Bool) | B
deriveDefaultAnnotation [t|AB|]

RepresentTuple.hs:1:1: error:
    Exception when trying to run compile-time code:
      Unexpected type: TupleT 2
CallStack (from HasCallStack):
  error, called at src/Clash/Annotations/BitRepresentation/Deriving.hs:177:19 in clash-prelude-0.99-inplace:Clash.Annotations.BitRepresentation.Deriving
    Code: deriveDefaultAnnotation [t| AB |]