Commit ccd0bf87 by Zachary Snow

fix Struct conversion paving over LHSDot

parent 1d79c279
...@@ -139,7 +139,7 @@ convertAsgn structs types (lhs, expr) = ...@@ -139,7 +139,7 @@ convertAsgn structs types (lhs, expr) =
rs' = r : tail rs rs' = r : tail rs
convertLHS (LHSDot l x ) = convertLHS (LHSDot l x ) =
case t of case t of
InterfaceT _ _ _ -> (Implicit [], l') InterfaceT _ _ _ -> (Implicit [], LHSDot l' x)
Struct _ _ _ -> case Map.lookup structTf structs of Struct _ _ _ -> case Map.lookup structTf structs of
Nothing -> (fieldType, LHSDot l' x) Nothing -> (fieldType, LHSDot l' x)
Just (structT, m) -> (tf [tr], LHSRange l' r) Just (structT, m) -> (tf [tr], LHSRange l' r)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment