core: use concrete monads

This commit is contained in:
1computer1 2020-06-16 22:08:26 -04:00
parent 4ea6c721c5
commit 57ea8696e7
3 changed files with 28 additions and 25 deletions

View file

@ -10,7 +10,6 @@ module Myriad.Core
, DefaultLanguageConfig(..)
, LanguageConfig(..)
, MyriadT
, Myriadic
, runMyriadT
, initEnv
, exec
@ -134,8 +133,6 @@ instance MonadBaseControl b m => MonadBaseControl b (MyriadT m) where
liftBaseWith = defaultLiftBaseWith
restoreM = defaultRestoreM
type Myriadic m = (MonadReader Env m, MonadLogger m, MonadLoggerIO m, MonadIO m, MonadBase IO m, MonadBaseControl IO m)
readConfig :: FilePath -> IO MyriadConfig
readConfig f = do
x <- BL.readFile f