Use ghcup's internal dir for 'ghcup run'

2022-07-11 15:09:25 +02:00
parent b8aeb1f935
commit b6ff5bc764
2 changed files with 37 additions and 18 deletions
--- a/lib/GHCup/Types.hs
+++ b/lib/GHCup/Types.hs
@@ -407,6 +407,9 @@ data AppState = AppState

 instance NFData AppState

+fromAppState :: AppState -> LeanAppState
+fromAppState AppState {..} = LeanAppState {..}
+
 data LeanAppState = LeanAppState
  { settings :: Settings
  , dirs :: Dirs