git.iko.soy/typeable/stackage2nix
on master help sign in
typeable/stackage2nix/src/Stack/Types.hs
26 lines 551 B history raw
1module Stack.Types where
3import Control.Lens
4import Data.Text as T
5import System.FilePath
8data StackYaml = StackYaml
9 { _syDirName :: FilePath
10 , _syFileName :: FilePath }
11 deriving (Ord, Eq, Show)
13makeLenses ''StackYaml
15syFilePath :: Getter StackYaml FilePath
16syFilePath = to stackYamlPath
17 where
18 stackYamlPath sy = sy ^. syDirName </> sy ^. syFileName
20newtype CabalFlag = CabalFlag { fromCabalFlag :: Text }
21 deriving (Ord, Eq, Show)
23makePrisms ''CabalFlag
25unCabalFlag :: CabalFlag -> String
26unCabalFlag = T.unpack . fromCabalFlag