[GHC] #13390: Strict literal float-out during desugaring regresses T1969 at -O0