{-# 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