fix Struct conversion paving over LHSDot

This commit is contained in:
Zachary Snow 2019-03-06 20:49:53 -05:00
parent 1d79c27963
commit ccd0bf879a
1 changed files with 1 additions and 1 deletions

View File

@ -139,7 +139,7 @@ convertAsgn structs types (lhs, expr) =
rs' = r : tail rs
convertLHS (LHSDot l x ) =
case t of
InterfaceT _ _ _ -> (Implicit [], l')
InterfaceT _ _ _ -> (Implicit [], LHSDot l' x)
Struct _ _ _ -> case Map.lookup structTf structs of
Nothing -> (fieldType, LHSDot l' x)
Just (structT, m) -> (tf [tr], LHSRange l' r)