fcase with string literal patterns causes internal errors

The program

wubbel :: String -> ()
wubbel s = fcase s of
    "Blah" -> ()

compiled to --type-annotated-flat causes Internal error: trLiteral: string to be raised.