8f102c0 · elk · git.iko.soy

on master help sign in

Get Elm.Compiler.Objects.Internal.destruct in a different way

8f102c0Evan Czaplicki9 years ago

src/Elm/Compiler/Objects/Internal.hs+2−7

@@ -35,7 +35,7 @@ import qualified AST.Variable as Var

37newtype Graph =

38− Graph (Map.Map Var.Global Opt.Decl)

38+ Graph { _graph :: Map.Map Var.Global Opt.Decl }

@@ -55,12 +55,7 @@ union (Graph objs1) (Graph objs2) =

56unions :: [Graph] -> Graph

57unions graphs =

58− Graph (Map.unions (map destruct graphs))

58+ Graph (Map.unions (map _graph graphs))

59−

60−

61−destruct :: Graph -> Map.Map Var.Global Opt.Decl

62−destruct (Graph graph) =

63− graph