fded78c · elk · git.iko.soy

Remove the interface loading function

commitfded78cbf42a9ca3849243677a1a356ceb425080 authorEvan Czaplicki <info@elm-lang.org> dateTue 14 Oct 2014, 17:23 (12 years ago) parent7e30e1d

2 files changed+2−11

unifiedsplit

compiler/Elm/Compiler.hs−9

@@ -5,7 +5,6 @@ module Elm.Compiler (version, parseDependencies, compile) where

55import Control.Monad.Error (MonadError, MonadIO, liftIO, throwError)

66import qualified Data.List as List

77import qualified Data.Map as Map

8−import System.IO.Unsafe (unsafePerformIO)

98import qualified Text.PrettyPrint as P

109

1110import qualified AST.Module as Module (HeaderAndImports(HeaderAndImports), Interfaces)

@@ -56,12 +55,4 @@ compile source interfaces =

5655 Right modul -> Right $ error "JS.generate modul"

5756 where

5857 unwrappedInterfaces =

59− Map.map (\(PublicModule.Interface iface) -> iface) $

6058 Map.mapKeysMonotonic (\(PublicModule.Name name) -> name) interfaces

61−

62−

63−{-# NOINLINE interfaces #-}

64−interfaces :: Module.Interfaces

65−interfaces =

66− error "unsafePerformIO $ Prelude.interfaces False"

67−

compiler/Elm/Compiler/Module.hs+2−2

@@ -1,5 +1,5 @@

11module Elm.Compiler.Module

2− ( Interface(Interface), Name(Name)

2+ ( Interface, Name(Name)

33 , nameToPath, nameToString, nameFromString

44 )

55 where

@@ -13,7 +13,7 @@ import System.FilePath ((</>))

1313import qualified AST.Module as Module

1414

1515

16−newtype Interface = Interface Module.Interface

16+type Interface = Module.Interface

1717

1818newtype Name = Name [String]

1919 deriving (Eq, Ord)