Use different type variables

restyled-io · Oct 19, 2023 · 737b4ec · 737b4ec
1 parent 4e2e727
commit 737b4ec
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Restyled/Agent/Prelude.hs b/src/Restyled/Agent/Prelude.hs
@@ -32,7 +32,7 @@ import UnliftIO.Concurrent as X (threadDelay)
 import UnliftIO.Exception as X (handleAny, throwIO, tryAny)
 import UnliftIO.Temporary as X (withSystemTempFile)
 
-views :: MonadReader a m => Lens' a b -> (b -> c) -> m c
+views :: MonadReader s m => Lens' s a -> (a -> r) -> m r
 views l f = f <$> view l
 
 eitherDecodeText :: FromJSON a => Text -> Either String a