src/Elm/Compiler/Objects.hs · elk

on ea77dcf help sign in

elk/src/Elm/Compiler/Objects.hs

32 lines 612 B history raw

1{-# OPTIONS_GHC -Wall #-}

2module Elm.Compiler.Objects

3 ( Graph

4 , union

5 , unions

6 , graphForPackage

7 , Roots

8 , mains

9 , value

10 )

11 where

14import qualified Data.Map as Map

16import qualified AST.Kernel as Kernel

17import qualified AST.Module.Name as ModuleName

18import qualified Elm.Compiler as Compiler

19import Elm.Compiler.Objects.Internal as Obj

23-- HELPER

26graphForPackage :: Map.Map ModuleName.Raw Kernel.Data -> [Compiler.Result] -> Obj.Graph

27graphForPackage kernels results =

28 let

29 kernelGraph =

30 Obj.Graph Map.empty kernels

31 in

32 Obj.unions (kernelGraph : map Compiler._objs results)