ffiCodegen - erl

src/Language/PureScript/Make/Actions.hs

@@ -158,20 +158,17 @@ buildMakeActions outputDir filePathMap foreigns usePrefix =
     let mn = CF.moduleName m
     foreignExports <- lift $ case mn `M.lookup` foreigns of
       Just path
-        | not $ requiresForeign m -> do
-            tell $ errorMessage $ UnnecessaryFFIModule mn path
+        | not $ requiresForeign m ->
             return []
         | otherwise -> getForeigns path
-      Nothing -> do
-        when (requiresForeign m) $ throwError . errorMessage $ MissingFFIModule mn
+      Nothing ->
         return []
 
     (exports, rawErl) <- E.moduleToErl env m foreignExports foreignTypes
     let pretty = prettyPrintErl rawErl
     let moduleDir = outputDir </> T.unpack (runModuleName mn)
         outFile = moduleDir </> T.unpack (erlModuleName mn PureScriptModule) ++ ".erl"
         externsFile = moduleDir </> "externs.json"
-        foreignFile = moduleDir </> T.unpack (erlModuleName mn ForeignModule) ++ ".erl"
         prefix :: [Text]
         prefix = ["Generated by purs version " <> T.pack (showVersion Paths.version) | usePrefix]
         directives :: [Text] 
@@ -185,7 +182,6 @@ buildMakeActions outputDir filePathMap foreigns usePrefix =
     let erl :: Text = T.unlines $ map ("% " <>) prefix ++ directives ++ [ pretty ]
     lift $ do
       writeTextFile outFile $ B.fromStrict $ TE.encodeUtf8 erl
-      for_ (mn `M.lookup` foreigns) (readTextFile >=> writeTextFile foreignFile)
       writeTextFile externsFile exts
 
   getForeigns :: String -> Make [(Text, Int)]
@@ -240,6 +236,18 @@ buildMakeActions outputDir filePathMap foreigns usePrefix =
         Nothing | requiresForeign m -> throwError . errorMessage' (CF.moduleSourceSpan m) $ MissingFFIModule mn
                 | otherwise -> return ()
       for_ (mn `M.lookup` foreigns) (readTextFile >=> writeTextFile foreignFile)
+    when (S.member Erl codegenTargets) $ do
+      let mn = CF.moduleName m
+          moduleDir = outputDir </> T.unpack (runModuleName mn)
+          foreignFile = moduleDir </> T.unpack (erlModuleName mn ForeignModule) ++ ".erl"
+      case mn `M.lookup` foreigns of
+        Just path
+          | not $ requiresForeign m ->
+              tell $ errorMessage $ UnnecessaryFFIModule mn path
+          | otherwise -> pure ()
+        Nothing -> do
+          when (requiresForeign m) $ throwError . errorMessage $ MissingFFIModule mn
+          for_ (mn `M.lookup` foreigns) (readTextFile >=> writeTextFile foreignFile)
 
   genSourceMap :: String -> String -> Int -> [SMap] -> Make ()
   genSourceMap dir mapFile extraLines mappings = do