From ccd0bf879a2d2b77bb25b19720643d877727501c Mon Sep 17 00:00:00 2001 From: Zachary Snow Date: Wed, 6 Mar 2019 20:49:53 -0500 Subject: [PATCH] fix Struct conversion paving over LHSDot --- src/Convert/Struct.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Convert/Struct.hs b/src/Convert/Struct.hs index b76d10a..9a5b82e 100644 --- a/src/Convert/Struct.hs +++ b/src/Convert/Struct.hs @@ -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)