We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 9af78f5 commit f9bde23Copy full SHA for f9bde23
src/Stack/Types/CompilerPaths.hs
@@ -5,6 +5,7 @@ module Stack.Types.CompilerPaths
5
, GhcPkgExe (..)
6
, HasCompiler (..)
7
, cabalVersionL
8
+ , compilerVersionL
9
, cpWhich
10
, getCompilerPath
11
, getGhcPkgExe
@@ -62,6 +63,9 @@ newtype GhcPkgExe
62
63
cabalVersionL :: HasCompiler env => SimpleGetter env Version
64
cabalVersionL = compilerPathsL.to cpCabalVersion
65
66
+compilerVersionL :: HasCompiler env => SimpleGetter env ActualCompiler
67
+compilerVersionL = compilerPathsL.to cpCompilerVersion
68
+
69
cpWhich :: (MonadReader env m, HasCompiler env) => m WhichCompiler
70
cpWhich = view $ compilerPathsL.to (whichCompiler.cpCompilerVersion)
71
0 commit comments