@@ -48,11 +48,11 @@ parseDependencies src =
4848compile
4949 :: String
5050 -> Map.Map PublicModule.Name PublicModule.Interface
51− -> Either String PublicModule.Interface
51+ -> Either String (PublicModule.Interface, String)
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 (Module.toInterface modul)
55+ Right modul -> Right (Module.toInterface modul, JS.generate modul)
5656 where
5757 unwrappedInterfaces =
5858 Map.mapKeysMonotonic (\(PublicModule.Name name) -> name) interfaces