@@ -81,26 +81,26 @@ buildMakeActions outputDir filePathMap usePrefix =
82 getOutputTimestamp :: P.ModuleName -> Make (Maybe UTCTime)
82 getOutputTimestamp :: P.ModuleName -> Make (Maybe UTCTime)
83 getOutputTimestamp mn = do
83 getOutputTimestamp mn = do
84− let filePath = dotsTo '/' $ P.runModuleName mn
84+ let filePath = P.runModuleName mn
85 fileBase = outputDir </> filePath </> (last . words . dotsTo ' ' $ P.runModuleName mn)
85 fileBase = outputDir </> filePath </> (last . words . dotsTo ' ' $ P.runModuleName mn)
86 sourceFile = addExtension fileBase sourceExt
86 sourceFile = addExtension fileBase sourceExt
87 headerFile = addExtension fileBase headerExt
87 headerFile = addExtension fileBase headerExt
88− externsFile = outputDir </> filePath </> "externs.purs"
88+ externsFile = outputDir </> filePath </> "externs.json"
89 foldl min <$> getTimestamp externsFile <*> mapM getTimestamp [sourceFile, headerFile]
89 foldl min <$> getTimestamp externsFile <*> mapM getTimestamp [sourceFile, headerFile]
91 readExterns :: P.ModuleName -> Make (FilePath, P.Externs)
91 readExterns :: P.ModuleName -> Make (FilePath, P.Externs)
92 readExterns mn = do
92 readExterns mn = do
93− let path = outputDir </> (dotsTo '/' $ P.runModuleName mn) </> "externs.purs"
93+ let path = outputDir </> (P.runModuleName mn) </> "externs.json"
94 (path, ) <$> readTextFile path
94 (path, ) <$> readTextFile path
96 codegen :: CF.Module CF.Ann -> P.Environment -> P.Externs -> P.SupplyT Make ()
96 codegen :: CF.Module CF.Ann -> P.Environment -> P.Externs -> P.SupplyT Make ()
97 codegen m env exts = do
97 codegen m env exts = do
98 let mn = CF.moduleName m
98 let mn = CF.moduleName m
99− let filePath = dotsTo '/' $ P.runModuleName mn
99+ let filePath = P.runModuleName mn
100 fileBase = outputDir </> filePath </> (last . words . dotsTo ' ' $ P.runModuleName mn)
100 fileBase = outputDir </> filePath </> (last . words . dotsTo ' ' $ P.runModuleName mn)
101 sourceFile = addExtension fileBase sourceExt
101 sourceFile = addExtension fileBase sourceExt
102 headerFile = addExtension fileBase headerExt
102 headerFile = addExtension fileBase headerExt
103− externsFile = outputDir </> filePath </> "externs.purs"
103+ externsFile = outputDir </> filePath </> "externs.json"
104 prefix = ["Generated by pcc version " ++ showVersion Paths.version | usePrefix]
104 prefix = ["Generated by pcc version " ++ showVersion Paths.version | usePrefix]
105 cpps <- CPP.moduleToCpp env m
105 cpps <- CPP.moduleToCpp env m
106 let (hdrs,srcs) = span (/= CPP.CppEndOfHeader) cpps
106 let (hdrs,srcs) = span (/= CPP.CppEndOfHeader) cpps