Change build directory hashes to hex format

1 files changed, 5 insertions, 4 deletions

diff --git a/bootstrap/src/Fpm.hs b/bootstrap/src/Fpm.hs
index c23263e..18831d8 100644
--- a/bootstrap/src/Fpm.hs
+++ b/bootstrap/src/Fpm.hs
@@ -33,6 +33,7 @@ import           Development.Shake.FilePath     ( (</>)
                                                 , exe
                                                 , splitDirectories
                                                 )
+import Numeric (showHex)
 import           Options.Applicative            ( Parser
                                                 , (<**>)
                                                 , (<|>)
@@ -681,15 +682,15 @@ makeBuildPrefix compiler flags = do
   --      Probably version, and make sure to not include path to the compiler
   versionInfo <- readProcess compiler ["--version"] []
   let compilerName = last (splitDirectories compiler)
-  let versionHash  = hash versionInfo
-  let flagsHash    = hash flags
+  let versionHash  = abs (hash versionInfo)
+  let flagsHash    = abs (hash flags)
   return
     $   "build"
     </> compilerName
     ++  "_"
-    ++  show versionHash
+    ++  showHex versionHash ""
     ++  "_"
-    ++  show flagsHash
+    ++  showHex flagsHash ""
 
 {-
     Fetching the dependencies is done on a sort of breadth first approach. All