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 qualified Data.Text.IO as TI
|
||||
import Database.Persist.Monad
|
||||
import Dhall hiding (double, record)
|
||||
import Internal.Budget
|
||||
import Internal.Config
|
||||
import Internal.Database.Ops
|
||||
import Internal.History
|
||||
import Internal.Types.Main
|
||||
|
@ -191,3 +191,6 @@ runSync c = do
|
|||
exitFailure
|
||||
|
||||
-- showBalances
|
||||
|
||||
readConfig :: MonadUnliftIO m => FilePath -> m Config
|
||||
readConfig confpath = liftIO $ unfix <$> Dhall.inputFile Dhall.auto confpath
|
||||
|
|
|
@ -26,7 +26,6 @@ source-repository head
|
|||
library
|
||||
exposed-modules:
|
||||
Internal.Budget
|
||||
Internal.Config
|
||||
Internal.Database.Ops
|
||||
Internal.History
|
||||
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