1234567891011121314151617181920212223242526272829 |
- {-# LANGUAGE TemplateHaskell #-}
- {-# OPTIONS_GHC -Wno-missing-signatures #-}
- module Types
- ( Compiler(..)
- , compilerVersion
- , Config(..)
- , configInstallPath
- , configCurrentCompiler
- , compilerString
- ) where
- import qualified Lens.Family.TH as Lens
- data Compiler = Compiler
- { _compilerVersion :: (Int, Int, Int)
- } deriving (Eq, Show)
- data Config = Config
- { _configInstallPath :: FilePath
- , _configCurrentCompiler :: Maybe Compiler
- } deriving (Eq, Show)
- Lens.makeLenses ''Compiler
- Lens.makeLenses ''Config
- compilerString :: Compiler -> String
- compilerString (Compiler (x, y, z)) =
- "ghc-" ++ show x ++ "." ++ show y ++ "." ++ show z
|