get version from the version file

input-output-hk · Aug 3, 2020 · 6add029 · 6add029
1 parent b3fa458
commit 6add029
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/ProposalUI.hs b/ProposalUI.hs
@@ -5,6 +5,7 @@
 module ProposalUI (spawnProposalUI) where
 
 import qualified Data.Text as T
+import qualified Data.Text.IO as T
 import           Data.Maybe (isJust, fromJust)
 import           Control.Monad.Managed (Managed, MonadIO)
 import qualified System.Process             as P
@@ -361,15 +362,16 @@ handleEvents pstate@ProposalUIState{psMenuState,psDaedalusRev,psInstallers,psOut
               act = do
                 createDirectoryIfMissing True $ FP.encodeString psOutputDir
                 rawFiles <- listDirectory "installers/"
-                res2 <- mapM (fileToResult . T.pack) rawFiles
+                res2 <- mapM (fileToResult . T.pack) (filter (/= "version") rawFiles)
+                daedalusVer <- T.readFile "installers/version"
                 let
                   globalStatus = GlobalResults
                     { grCardanoCommit = "missing"
                     , grDaedalusCommit = T.pack $ fromJust $ psDaedalusRev
                     , grNodeVersion = "missing"
                     , grApplicationVersion = 0
                     , grCardanoVersion = "missing"
-                    , grDaedalusVersion = "missing FIXME"
+                    , grDaedalusVersion = T.dropAround (== '\n') daedalusVer
                     }
                   results = InstallersResults
                     { ciResults = res2