@@ -26,5 +26,5 @@ fromInternalType astType =
26 Type.Record fields ext ->
26 Type.Record fields ext ->
27 T.Record (map (second fromInternalType) fields) (fmap fromInternalType ext)
27 T.Record (map (second fromInternalType) fields) (fmap fromInternalType ext)
29− Type.Aliased name args t ->
29+ Type.Aliased _name args t ->
30 fromInternalType (Type.dealias args t)
30 fromInternalType (Type.dealias args t)