fded78c · elk · git.iko.soy

on master help sign in

Remove the interface loading function

fded78cEvan Czaplicki12 years ago

compiler/Elm/Compiler.hs−9

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

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

6import qualified Data.List as List

7import qualified Data.Map as Map

8−import System.IO.Unsafe (unsafePerformIO)

9import qualified Text.PrettyPrint as P

8import qualified Text.PrettyPrint as P

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

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

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

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

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

57 where

56 where

58 unwrappedInterfaces =

57 unwrappedInterfaces =

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

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

58 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 @@

1module Elm.Compiler.Module

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

2+ ( Interface, Name(Name)

3 , nameToPath, nameToString, nameFromString

4 )

5 where

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

13import qualified AST.Module as Module

16−newtype Interface = Interface Module.Interface

16+type Interface = Module.Interface

18newtype Name = Name [String]

19 deriving (Eq, Ord)