[Test] Stack: use ghc-* resolver based on ghc version

2016-08-28 23:27:39 +03:00 · 2016-08-28 23:27:39 +03:00 · 05d87f4175
commit 05d87f4175
parent dd45f6e31d
1 changed files with 7 additions and 1 deletions
--- a/test/Main.hs
+++ b/test/Main.hs
@ -56,7 +56,13 @@ main = do

  let stackDir = "test/data/stack-project"
  void $ withDirectory_ stackDir $ do
--    void $ system "stack init --force"
+    let ghcver = let gvn = show (__GLASGOW_HASKELL__ :: Int)
+                     (major, minor') = splitAt (length gvn - 2) gvn
+                     minor = case dropWhile (=='0') minor' of
+                                  "" -> "0"
+                                  x  -> x
+                 in major ++ "." ++ minor
+    void $ system $ "stack init --force --resolver=ghc-" ++ ghcver
    void $ system "stack setup"
    void $ system "stack build"