24 lines
493 B
Haskell
24 lines
493 B
Haskell
{-# LANGUAGE NoImplicitPrelude #-}
|
|
|
|
module Internal.Config
|
|
( readConfig
|
|
-- , readYaml
|
|
)
|
|
where
|
|
|
|
-- import Control.Exception
|
|
-- import Data.Yaml
|
|
import Dhall hiding (record)
|
|
import Internal.Types
|
|
import RIO
|
|
|
|
readConfig :: MonadUnliftIO m => FilePath -> m Config
|
|
readConfig confpath = liftIO $ unfix <$> inputFile auto confpath
|
|
|
|
-- readYaml :: FromJSON a => FilePath -> IO a
|
|
-- readYaml p = do
|
|
-- r <- decodeFileEither p
|
|
-- case r of
|
|
-- Right a -> return a
|
|
-- Left e -> throw e
|