REF remove config module
This commit is contained in:
parent
62b39b61aa
commit
627704704e
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
|
Loading…
Reference in New Issue