From bc13a4555d55934d8a7beaaba132b0c37fd19e05 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Mon, 19 Jul 2021 16:56:28 +0200
Subject: [PATCH] Fix runLeanWhereIs on windows

---
 app/ghcup/Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/app/ghcup/Main.hs b/app/ghcup/Main.hs
index 389dc8a..3c37ec1 100644
--- a/app/ghcup/Main.hs
+++ b/app/ghcup/Main.hs
@@ -1533,7 +1533,9 @@ Report bugs at <https://gitlab.haskell.org/haskell/ghcup-hs/issues>|]
           let
             runLeanWhereIs =
               runLogger
-                . runLeanAppState
+                -- Don't use runLeanAppState here, which is disabled on windows.
+                -- This is the only command on all platforms that doesn't need full appstate.
+                . flip runReaderT leanAppstate
                 . runE
                   @'[ NotInstalled
                     , NoToolVersionSet