(Control.Category.id @(->) >>=) causes GHC panic

$ ghci -ignore-dot-ghci -XTypeApplications
GHCi, version 8.3.20170605: http://www.haskell.org/ghc/  :? for help
Prelude> import qualified Control.Category as Cat
Prelude Cat> :t (Cat.id @(->) >>=)
ghc: panic! (the 'impossible' happened)
  (GHC version 8.3.20170605 for x86_64-unknown-linux):
	repSplitAppTy_maybe
  a0_a1qW[tau:2]
  a0_a1qW[tau:2]
  Call stack:
      CallStack (from HasCallStack):
        prettyCurrentCallStack, called at compiler/utils/Outputable.hs:1133:58 in ghc:Outputable
        callStackDoc, called at compiler/utils/Outputable.hs:1137:37 in ghc:Outputable
        pprPanic, called at compiler/types/Type.hs:699:5 in ghc:Type

Please report this as a GHC bug:  http://www.haskell.org/ghc/reportabug

Prelude Cat> 

Trac metadata

Trac field	Value
Version	8.2.1
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	Compiler
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system
Architecture