Skip to content

Commit 494098a

Browse files
committed
gogol: formatting newEnv{,With} type signatures
1 parent af5b1a2 commit 494098a

File tree

1 file changed

+13
-4
lines changed

1 file changed

+13
-4
lines changed

lib/gogol/src/Gogol/Env.hs

Lines changed: 13 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -65,7 +65,7 @@ class HasEnv scopes a | a -> scopes where
6565
envLogger = environment . lens _envLogger (\s a -> s {_envLogger = a})
6666
envManager = environment . lens _envManager (\s a -> s {_envManager = a})
6767
envStore = environment . lens _envStore (\s a -> s {_envStore = a})
68-
envScopes = environment . lens (\_ -> Proxy :: Proxy s) (flip allow)
68+
envScopes = environment . lens (\_ -> Proxy :: Proxy scopes) (flip allow)
6969

7070
instance HasEnv scopes (Env scopes) where
7171
environment = id
@@ -127,7 +127,13 @@ timeout s = local (configure (serviceTimeout ?~ s))
127127
-- Lenses from 'HasEnv' can be used to further configure the resulting 'Env'.
128128
--
129129
-- /See:/ 'newEnvWith', 'getApplicationDefault'.
130-
newEnv :: forall s. m (MonadIO m, MonadCatch m, KnownScopes scopes) => m (Env scopes)
130+
newEnv ::
131+
forall scopes m.
132+
( MonadIO m,
133+
MonadCatch m,
134+
KnownScopes scopes
135+
) =>
136+
m (Env scopes)
131137
newEnv = do
132138
m <- liftIO (newManager tlsManagerSettings)
133139
c <- getApplicationDefault m
@@ -137,8 +143,11 @@ newEnv = do
137143
--
138144
-- /See:/ 'newEnv'.
139145
newEnvWith ::
140-
forall s m.
141-
(MonadIO m, MonadCatch m, KnownScopes scopes) =>
146+
forall scopes m.
147+
( MonadIO m,
148+
MonadCatch m,
149+
KnownScopes scopes
150+
) =>
142151
Credentials scopes ->
143152
Logger ->
144153
Manager ->

0 commit comments

Comments
 (0)