remove useless type

This commit is contained in:
1computer1 2020-06-07 01:52:58 -04:00
parent 8080b360c9
commit b97c1a0afb

View file

@ -9,7 +9,6 @@ module Myriad.Core
, MyriadConfig(..) , MyriadConfig(..)
, LanguageConfig(..) , LanguageConfig(..)
, MyriadT , MyriadT
, Myriad
, Myriadic , Myriadic
, runMyriadT , runMyriadT
, initEnv , initEnv
@ -30,7 +29,6 @@ import Control.Monad.Trans.Control
import Control.Monad.Writer import Control.Monad.Writer
import qualified Data.ByteString.Lazy as BL import qualified Data.ByteString.Lazy as BL
import Data.Functor.Identity
import qualified Data.Map.Strict as M import qualified Data.Map.Strict as M
import Data.Snowflake import Data.Snowflake
import qualified Data.Text as T import qualified Data.Text as T
@ -104,8 +102,6 @@ instance MonadBaseControl b m => MonadBaseControl b (MyriadT m) where
liftBaseWith = defaultLiftBaseWith liftBaseWith = defaultLiftBaseWith
restoreM = defaultRestoreM restoreM = defaultRestoreM
type Myriad = MyriadT Identity
type Myriadic m = (MonadReader Env m, MonadLogger m, MonadLoggerIO m, MonadIO m, MonadBase IO m, MonadBaseControl IO m) type Myriadic m = (MonadReader Env m, MonadLogger m, MonadLoggerIO m, MonadIO m, MonadBase IO m, MonadBaseControl IO m)
readConfig :: T.Text -> IO MyriadConfig readConfig :: T.Text -> IO MyriadConfig