cosmetic: name argument
commit5f292189957a2eb6079874c20838ac3814925f47
authorEvan Czaplicki <info@elm-lang.org>
dateSun 24 Aug 2014, 21:52 (12 years ago)
parent30a2689
compiler/Transform/Interface.hs+2−1
@@ -34,7 +34,8 @@ filterExports interface =
3434 Var.ADT _ (Var.Listing ctors _) -> concatMap getType ctors
3535
3636 getType :: String -> [(String, Type.CanonicalType)]
37− getType = get (Module.iTypes interface)
37+ getType name =
38+ get (Module.iTypes interface) name
3839
3940 getAliases :: Var.Value -> [(String, ([String], Type.CanonicalType))]
4041 getAliases value =