Parsing error from inline module path

[CarlOlson]

I noticed syntax highlighting completely failed for a source file. This example prevents recovery after an error:

let _ =
  <Component
    values={values->Array.filter(value => value.A.B.c)}
    onChange={values => dispatch(SetValues(values))}
  />

Here is a simple example that does recover (but still has an error):

module A = {
  module B = {
    type t = {
      c: int
    }
  }
}

let fn = t => t.A.B.c