write mod.rs files for sub-modules

Author: ners

src/Language/Rust/Inline/Internal.hs

@@ -37,7 +37,7 @@ import Data.Maybe                  ( fromMaybe )
 import Data.List                   ( unfoldr )
 import Data.Char                   ( isAlpha, isAlphaNum )
 
-import System.FilePath             ( (</>), (<.>), takeDirectory, takeExtension )
+import System.FilePath             ( (</>), (<.>), takeBaseName, takeDirectory, takeExtension )
 import System.Directory            ( copyFile, createDirectoryIfMissing, getDirectoryContents )
 import System.Process              ( spawnProcess, readProcess, waitForProcess )
 import System.Exit                 ( ExitCode(..) )
@@ -249,6 +249,14 @@ fileFinalizer = do
   let dir = ".inline-rust" </> pkg
       thisFile = foldr1 (</>) mods
 
+  let modPaths = tail $ (dir </>) <$> scanl1 (</>) mods
+  forM_ modPaths $ \modPath -> runIO $ do
+    let modName = takeBaseName modPath
+        modDir = takeDirectory modPath
+        modFile = modDir </> "mod.rs"
+    createDirectoryIfMissing True modDir
+    appendFile modFile $ "pub mod " <> modName <> ";\n"
+
   -- Figure out what we are putting into this file 
   Just cb <- getQ
   Just (Context (_,_,impls)) <- getQ