Type synonyms of newtypes in functors not getting instantiated

[qsctr]

module Main where

submodule F where
  parameter
    x : Bit
  newtype T = { bit : Bit }
  type U = T

submodule M = submodule F where x = False

import submodule M

foo : U
foo = T { bit = True }

[error] at Main.cry:14:7--14:8:
  Type mismatch:
    Expected type: Main::F::T
    Inferred type: Main::M::T
    Context: _ -> ERROR
    When checking function call

It seems like we are not properly instantiating U and M::U still points to F::T instead of M::T.