@@ -7,7 +7,7 @@ import qualified Data.List as List
7import qualified Data.Map as Map
7import qualified Data.Map as Map
8import qualified Text.PrettyPrint as P
8import qualified Text.PrettyPrint as P
10−import qualified AST.Module as Module (HeaderAndImports(HeaderAndImports), Interfaces)
10+import qualified AST.Module as Module (HeaderAndImports(HeaderAndImports), Interfaces, toInterface)
11import qualified Build.Source as Source
11import qualified Build.Source as Source
12import qualified Elm.Compiler.Module as PublicModule
12import qualified Elm.Compiler.Module as PublicModule
13import qualified Elm.Compiler.Version as Version
13import qualified Elm.Compiler.Version as Version
@@ -52,7 +52,7 @@ compile
52compile source interfaces =
52compile source interfaces =
53 case Source.build True unwrappedInterfaces source of
53 case Source.build True unwrappedInterfaces source of
54 Left docs -> Left . unlines . List.intersperse "" $ map P.render docs
54 Left docs -> Left . unlines . List.intersperse "" $ map P.render docs
55− Right modul -> Right $ error "JS.generate modul"
55+ Right modul -> Right (Module.toInterface modul)
57 unwrappedInterfaces =
57 unwrappedInterfaces =
58 Map.mapKeysMonotonic (\(PublicModule.Name name) -> name) interfaces
58 Map.mapKeysMonotonic (\(PublicModule.Name name) -> name) interfaces