|
@@ -1203,6 +1203,8 @@ and type_access ctx e p mode =
|
|
loop ((s,true,p) :: acc) e
|
|
loop ((s,true,p) :: acc) e
|
|
| EConst (Ident i) ->
|
|
| EConst (Ident i) ->
|
|
type_path ((i,false,p) :: acc)
|
|
type_path ((i,false,p) :: acc)
|
|
|
|
+ | EConst (Type i) ->
|
|
|
|
+ type_path ((i,true,p) :: acc)
|
|
| _ ->
|
|
| _ ->
|
|
fields acc (type_access ctx (fst e) (snd e))
|
|
fields acc (type_access ctx (fst e) (snd e))
|
|
in
|
|
in
|