File tree Expand file tree Collapse file tree 1 file changed +13
-4
lines changed Expand file tree Collapse file tree 1 file changed +13
-4
lines changed Original file line number Diff line number Diff line change @@ -65,7 +65,7 @@ class HasEnv scopes a | a -> scopes where
65
65
envLogger = environment . lens _envLogger (\ s a -> s {_envLogger = a})
66
66
envManager = environment . lens _envManager (\ s a -> s {_envManager = a})
67
67
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)
69
69
70
70
instance HasEnv scopes (Env scopes ) where
71
71
environment = id
@@ -127,7 +127,13 @@ timeout s = local (configure (serviceTimeout ?~ s))
127
127
-- Lenses from 'HasEnv' can be used to further configure the resulting 'Env'.
128
128
--
129
129
-- /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 )
131
137
newEnv = do
132
138
m <- liftIO (newManager tlsManagerSettings)
133
139
c <- getApplicationDefault m
@@ -137,8 +143,11 @@ newEnv = do
137
143
--
138
144
-- /See:/ 'newEnv'.
139
145
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
+ ) =>
142
151
Credentials scopes ->
143
152
Logger ->
144
153
Manager ->
You can’t perform that action at this time.
0 commit comments