@@ -7,7 +7,7 @@ import qualified Data.List as List
77import qualified Data.Map as Map
88import qualified Text.PrettyPrint as P
99
10−import qualified AST.Module as Module (HeaderAndImports(HeaderAndImports), Interfaces)
10+import qualified AST.Module as Module (HeaderAndImports(HeaderAndImports), Interfaces, toInterface)
1111import qualified Build.Source as Source
1212import qualified Elm.Compiler.Module as PublicModule
1313import qualified Elm.Compiler.Version as Version
@@ -52,7 +52,7 @@ compile
5252compile source interfaces =
5353 case Source.build True unwrappedInterfaces source of
5454 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)
5656 where
5757 unwrappedInterfaces =
5858 Map.mapKeysMonotonic (\(PublicModule.Name name) -> name) interfaces