REF remove config module

This commit is contained in:
Nathan Dwarshuis 2023-05-29 15:58:27 -04:00
parent 62b39b61aa
commit 627704704e
3 changed files with 4 additions and 13 deletions

View File

@ -8,8 +8,8 @@ import Control.Monad.Logger
import Control.Monad.Reader import Control.Monad.Reader
import qualified Data.Text.IO as TI import qualified Data.Text.IO as TI
import Database.Persist.Monad import Database.Persist.Monad
import Dhall hiding (double, record)
import Internal.Budget import Internal.Budget
import Internal.Config
import Internal.Database.Ops import Internal.Database.Ops
import Internal.History import Internal.History
import Internal.Types.Main import Internal.Types.Main
@ -191,3 +191,6 @@ runSync c = do
exitFailure exitFailure
-- showBalances -- showBalances
readConfig :: MonadUnliftIO m => FilePath -> m Config
readConfig confpath = liftIO $ unfix <$> Dhall.inputFile Dhall.auto confpath

View File

@ -26,7 +26,6 @@ source-repository head
library library
exposed-modules: exposed-modules:
Internal.Budget Internal.Budget
Internal.Config
Internal.Database.Ops Internal.Database.Ops
Internal.History Internal.History
Internal.Statement Internal.Statement

View File

@ -1,11 +0,0 @@
module Internal.Config
( readConfig
)
where
import Dhall hiding (record)
import Internal.Types.Main
import RIO
readConfig :: MonadUnliftIO m => FilePath -> m Config
readConfig confpath = liftIO $ unfix <$> inputFile auto confpath