yesod package compiles (still want to clean it up)

yesod/src/Yesod/Default/Config.hs

@@ -180,7 +180,7 @@ loadConfig :: ConfigSettings environment extra
            -> IO (AppConfig environment extra)
 loadConfig (ConfigSettings env parseExtra getFile getObject) = do
     fp <- getFile env
-    mtopObj <- decodeFile fp
+    mtopObj <- decodeFileThrow fp
     topObj <- maybe (fail "Invalid YAML file") return mtopObj
     obj <- getObject env topObj
     m <-
@@ -233,7 +233,7 @@ withYamlEnvironment :: Show e
                     -> (Value -> Parser a) -- ^ what to do with the mapping
                     -> IO a
 withYamlEnvironment fp env f = do
-    mval <- decodeFile fp
+    mval <- decodeFileThrow fp
     case mval of
         Nothing -> fail $ "Invalid YAML file: " ++ show fp
         Just (Object obj)

yesod/src/Yesod/Default/Config2.hs

@@ -6,7 +6,6 @@ module Yesod.Default.Config2
       configSettingsYml
     , getDevSettings
     , develMainHelper
-    , makeYesodLogger
       -- * Re-exports from Data.Yaml.Config
     , applyCurrentEnv
     , getCurrentEnv
@@ -28,7 +27,6 @@ module Yesod.Default.Config2
 
 import Data.Yaml.Config
 
-import Data.Semigroup
 import Data.Aeson
 import qualified Data.HashMap.Strict as H
 import System.Environment (getEnvironment)
@@ -39,9 +37,6 @@ import Data.Maybe (fromMaybe)
 import Control.Concurrent (forkIO, threadDelay)
 import System.Exit (exitSuccess)
 import System.Directory (doesFileExist)
-import Network.Wai.Logger (clockDateCacher)
-import Yesod.Core.Types (Logger (Logger))
-import System.Log.FastLogger (LoggerSet)
 
 #ifndef mingw32_HOST_OS
 import System.Posix.Signals (installHandler, sigINT, Handler(Catch))
@@ -117,10 +112,3 @@ develMainHelper getSettingsApp = do
 
     terminateDevel :: IO ()
     terminateDevel = exitSuccess
-
--- | Create a 'Logger' value (from yesod-core) out of a 'LoggerSet' (from
--- fast-logger).
-makeYesodLogger :: LoggerSet -> IO Logger
-makeYesodLogger loggerSet' = do
-    (getter, _) <- clockDateCacher
-    return $! Yesod.Core.Types.Logger loggerSet' getter

yesod/src/Yesod/Default/Handlers.hs

@@ -6,8 +6,8 @@ module Yesod.Default.Handlers
 
 import Yesod.Core
 
-getFaviconR :: MonadHandler m => m ()
+getFaviconR :: HasHandlerData env => RIO env ()
 getFaviconR = sendFile "image/x-icon" "config/favicon.ico"
 
-getRobotsR :: MonadHandler m => m ()
+getRobotsR :: HasHandlerData env => RIO env ()
 getRobotsR = sendFile "text/plain" "config/robots.txt"