Fix tests because of updated loadGlobalHints

qrilka · qrilka · commit 43528d79fc7d · 2019-01-18T16:06:06.000+03:00
diff --git a/src/test/Stack/SourceMapSpec.hs b/src/test/Stack/SourceMapSpec.hs
@@ -6,7 +6,6 @@ import Distribution.Types.PackageName (mkPackageName)
 import Distribution.Version (mkVersion)
 import Stack.Prelude
 import Stack.SourceMap (loadGlobalHints)
-import Stack.Types.Compiler (ActualCompiler(..))
 import Stack.Types.Runner (withRunner, ColorWhen (ColorNever))
 import Test.Hspec
 import qualified RIO.Map as Map
@@ -23,10 +22,10 @@ spec = do
           withRunner LevelError False False ColorNever mempty Nothing False $ \runner ->
             runRIO runner $ inner abs'
     it' "unknown compiler" $ \fp -> do
-      mmap <- loadGlobalHints fp $ ACGhc (mkVersion [0, 0, 0, 0, 0, 0, 0])
+      mmap <- loadGlobalHints fp $ WCGhc (mkVersion [0, 0, 0, 0, 0, 0, 0])
       liftIO $ mmap `shouldBe` Nothing
     it' "known compiler" $ \fp -> do
-      mmap <- loadGlobalHints fp $ ACGhc (mkVersion [8, 4, 3])
+      mmap <- loadGlobalHints fp $ WCGhc (mkVersion [8, 4, 3])
       case mmap of
         Nothing -> error "not found"
         Just m -> liftIO $ do
@@ -35,7 +34,7 @@ spec = do
           Map.lookup (mkPackageName "bytestring") m `shouldBe` Just (mkVersion [0, 10, 8, 2])
           Map.lookup (mkPackageName "acme-missiles") m `shouldBe` Nothing
     it' "older known compiler" $ \fp -> do
-      mmap <- loadGlobalHints fp $ ACGhc (mkVersion [7, 8, 4])
+      mmap <- loadGlobalHints fp $ WCGhc (mkVersion [7, 8, 4])
       case mmap of
         Nothing -> error "not found"
         Just m -> liftIO $ do
