git.iko.soy/elk
on master help sign in
cosmetic: name argument
5f29218Evan Czaplicki
compiler/Transform/Interface.hs+2−1
compare with master
unifiedsplit
@@ -34,7 +34,8 @@ filterExports interface =
34 Var.ADT _ (Var.Listing ctors _) -> concatMap getType ctors
34 Var.ADT _ (Var.Listing ctors _) -> concatMap getType ctors
35
35
36 getType :: String -> [(String, Type.CanonicalType)]
36 getType :: String -> [(String, Type.CanonicalType)]
37+ getType name =
37− getType = get (Module.iTypes interface)
38+ get (Module.iTypes interface) name
38
39
39 getAliases :: Var.Value -> [(String, ([String], Type.CanonicalType))]
40 getAliases :: Var.Value -> [(String, ([String], Type.CanonicalType))]
40 getAliases value =
41 getAliases value =