2018-08-02 22:32:23 +03:00
|
|
|
{-# Language NoImplicitPrelude #-}
|
|
|
|
|
module Types where
|
|
|
|
|
|
|
|
|
|
import ClassyPrelude
|
|
|
|
|
import Control.Monad.Logger
|
2018-08-02 23:07:05 +03:00
|
|
|
import Configuration
|
2018-08-02 22:32:23 +03:00
|
|
|
|
2018-08-02 23:07:05 +03:00
|
|
|
newtype App = App { config :: Config }
|
2018-08-02 22:32:23 +03:00
|
|
|
|
|
|
|
|
type AppM = LoggingT (ReaderT App IO)
|
