infinisil/all-hies
1
1
Fork 0
mirror of https://github.com/infinisil/all-hies.git synced 2024-11-22 13:02:26 +03:00
Code Issues Projects Releases Wiki Activity

Fix updating for changing targets

Browse Source 
Branches like master would now work
This commit is contained in:
Silvan Mosberger 2019-05-01 23:29:41 +02:00
parent 544ea0c96f
commit 4adafcd78b
No known key found for this signature in database
GPG Key ID: 9424360B4B85C9E7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
update.hs
View File

@ -10,7 +10,7 @@ import Control.Exception (handleJust)
import Control.Monad.Reader
import Data.Aeson (decode)
import qualified Data.ByteString.Lazy.Char8 as BS
import Data.Char (isDigit)
import Data.Char (isDigit, isHexDigit)
import Data.List (intercalate)
import Data.Maybe
import Data.Time
@ -221,7 +221,7 @@ regenerate revision genDir = do
hash <- revHash hie revision
liftIO $ putStrLn $ "Writing " ++ revision ++ " to " ++ genDir ++ "/revision"
liftIO $ writeFile (genDir </> "revision") revision
git hie [ "checkout", revision ]
git hie [ "checkout", if all isHexDigit revision then revision else "origin/" ++ revision ]
files <- repoPath hie >>= liftIO . listDirectory
let versions = mapMaybe (stackPathRegex `match`) files
liftIO $ putStrLn $ "HIE " ++ revision ++ " has ghc versions " ++ intercalate ", " (map show versions)