@@ -1,4 +1,5 @@
11{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE RankNTypes #-}
23{-# LANGUAGE FlexibleContexts #-}
34{-# LANGUAGE FlexibleInstances #-}
45{-# LANGUAGE FunctionalDependencies #-}
@@ -173,7 +174,7 @@ instance AllowScopes s => MonadGoogle s (Google s) where
173174instance MonadBaseControl IO (Google s) where
174175 type StM (Google s) a = StM (ReaderT (Env s) (ResourceT IO)) a
175176
176− liftBaseWith f = Google . liftBaseWith $ \g -> f (g . unGoogle)
177+ liftBaseWith f = Google $ liftBaseWith $ \g -> f (g . unGoogle)
177178 restoreM = Google . restoreM
178179
179180instance MonadGoogle s m => MonadGoogle s (IdentityT m) where