module HIE.Bios.Cradle.ProjectConfig where

import System.FilePath

-- | Explicit data-type for project configuration location.
-- It is basically a 'Maybe' type, but helps to document the API
-- and helps to avoid incorrect usage.
data CradleProjectConfig
  = NoExplicitConfig
  | ExplicitConfig FilePath
  deriving (CradleProjectConfig -> CradleProjectConfig -> Bool
(CradleProjectConfig -> CradleProjectConfig -> Bool)
-> (CradleProjectConfig -> CradleProjectConfig -> Bool)
-> Eq CradleProjectConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CradleProjectConfig -> CradleProjectConfig -> Bool
== :: CradleProjectConfig -> CradleProjectConfig -> Bool
$c/= :: CradleProjectConfig -> CradleProjectConfig -> Bool
/= :: CradleProjectConfig -> CradleProjectConfig -> Bool
Eq, Int -> CradleProjectConfig -> ShowS
[CradleProjectConfig] -> ShowS
CradleProjectConfig -> FilePath
(Int -> CradleProjectConfig -> ShowS)
-> (CradleProjectConfig -> FilePath)
-> ([CradleProjectConfig] -> ShowS)
-> Show CradleProjectConfig
forall a.
(Int -> a -> ShowS) -> (a -> FilePath) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CradleProjectConfig -> ShowS
showsPrec :: Int -> CradleProjectConfig -> ShowS
$cshow :: CradleProjectConfig -> FilePath
show :: CradleProjectConfig -> FilePath
$cshowList :: [CradleProjectConfig] -> ShowS
showList :: [CradleProjectConfig] -> ShowS
Show)

-- | Create an explicit project configuration. Expects a working directory
-- followed by an optional name of the project configuration.
projectConfigFromMaybe :: FilePath -> Maybe FilePath -> CradleProjectConfig
projectConfigFromMaybe :: FilePath -> Maybe FilePath -> CradleProjectConfig
projectConfigFromMaybe FilePath
_wdir Maybe FilePath
Nothing = CradleProjectConfig
NoExplicitConfig
projectConfigFromMaybe FilePath
wdir (Just FilePath
fp) = FilePath -> CradleProjectConfig
ExplicitConfig (FilePath
wdir FilePath -> ShowS
</> FilePath
fp)