2022-12-11 17:51:11 -05:00
|
|
|
module Internal.Config
|
|
|
|
( readConfig
|
2023-01-05 22:16:06 -05:00
|
|
|
)
|
|
|
|
where
|
2022-12-11 17:51:11 -05:00
|
|
|
|
2023-01-05 22:16:06 -05:00
|
|
|
import Dhall hiding (record)
|
2023-05-29 14:46:30 -04:00
|
|
|
import Internal.Types.Main
|
2023-01-05 22:23:22 -05:00
|
|
|
import RIO
|
2022-12-11 17:51:11 -05:00
|
|
|
|
2023-01-05 22:23:22 -05:00
|
|
|
readConfig :: MonadUnliftIO m => FilePath -> m Config
|
|
|
|
readConfig confpath = liftIO $ unfix <$> inputFile auto confpath
|