From b4d6843c179ff4b5c78ff2a968998c7424f38792 Mon Sep 17 00:00:00 2001
From: Brad Richardson <brichardson@structint.com>
Date: Sun, 3 May 2020 19:53:18 -0700
Subject: Add compiler as part of build path

---
 src/Fpm.hs | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'src/Fpm.hs')

diff --git a/src/Fpm.hs b/src/Fpm.hs
index c10f7b0..3fdf93e 100644
--- a/src/Fpm.hs
+++ b/src/Fpm.hs
@@ -224,16 +224,17 @@ executableCodec =
 toml2AppSettings :: TomlSettings -> Bool -> IO AppSettings
 toml2AppSettings tomlSettings release = do
   let projectName = tomlSettingsProjectName tomlSettings
+  let compiler    = "gfortran"
   librarySettings    <- getLibrarySettings $ tomlSettingsLibrary tomlSettings
   executableSettings <- getExecutableSettings
     (tomlSettingsExecutables tomlSettings)
     projectName
   testSettings <- getTestSettings $ tomlSettingsTests tomlSettings
+  buildPrefix  <- makeBuildPrefix compiler release
   return AppSettings
-    { appSettingsCompiler    = "gfortran"
+    { appSettingsCompiler    = compiler
     , appSettingsProjectName = projectName
-    , appSettingsBuildPrefix = "build"
-                                 </> if release then "release" else "debug"
+    , appSettingsBuildPrefix = buildPrefix
     , appSettingsFlags       = if release
                                  then
                                    [ "-Wall"
@@ -304,3 +305,9 @@ getTestSettings [] = do
         else return []
     else return []
 getTestSettings tests = return tests
+
+makeBuildPrefix :: String -> Bool -> IO String
+makeBuildPrefix compiler release =
+  -- TODO Figure out what other info should be part of this
+  --      Probably version, and make sure to not include path to the compiler
+  return $ "build" </> compiler ++ "_" ++ if release then "release" else "debug"
-- 
cgit v1.2.3