on master help sign in
Correct AST.Type.deepDealias function
22bed73Evan Czaplicki
src/AST/Type.hs+1−1
@@ -78,7 +78,7 @@ deepDealias tipe =
78 Record (map (second go) fields) (fmap go ext)
78 Record (map (second go) fields) (fmap go ext)
79
79
80 Aliased _name args tipe' ->
80 Aliased _name args tipe' ->
81− dealias args tipe'
81+ deepDealias (dealias args tipe')
82
82
83 Type _ ->
83 Type _ ->
84 tipe
84 tipe