Skip to content

Commit

Permalink
Update ghcup-gen
Browse files Browse the repository at this point in the history
  • Loading branch information
hasufell committed Jul 7, 2024
1 parent 88a76d6 commit 81ff200
Show file tree
Hide file tree
Showing 3 changed files with 4 additions and 6 deletions.
4 changes: 1 addition & 3 deletions cabal.project
Original file line number Diff line number Diff line change
Expand Up @@ -7,7 +7,7 @@ package ghcup
source-repository-package
type: git
location: https://github.com/haskell/ghcup-hs.git
tag: 91ef2c7666d118bc6bd7d2fc2eeb7754081a9f3d
tag: 0fd70d9797a655d64fa1c5531e5c3a2903518254

constraints: http-io-streams -brotli,
any.aeson >= 2.0.1.0
Expand All @@ -24,5 +24,3 @@ package cabal-plan
package aeson
flags: +ordered-keymap

package streamly
flags: +use-unliftio
4 changes: 2 additions & 2 deletions ghcup-gen/Main.hs
Original file line number Diff line number Diff line change
Expand Up @@ -194,7 +194,7 @@ main = do
, fancyColors = not no_color
}
dirs <- liftIO getAllDirs
let leanAppstate = LeanAppState (Settings True 0 Lax False Never Curl True GHCupURL False GPGNone True Nothing (DM mempty)) dirs defaultKeyBindings loggerConfig
let leanAppstate = LeanAppState (Settings True 0 Lax False Never Curl True GHCupURL False GPGNone True Nothing (DM mempty) []) dirs defaultKeyBindings loggerConfig

pfreq <- (
flip runReaderT leanAppstate . runE @'[NoCompatiblePlatform, NoCompatibleArch, DistroNotFound] $ platformRequest
Expand All @@ -204,7 +204,7 @@ main = do
flip runReaderT leanAppstate $ logError $ T.pack $ prettyShow e
liftIO $ exitWith (ExitFailure 2)

let appstate = AppState (Settings True 0 Lax False Never Curl True GHCupURL False GPGNone True Nothing (DM mempty)) dirs defaultKeyBindings (GHCupInfo mempty mempty Nothing) pfreq loggerConfig
let appstate = AppState (Settings True 0 Lax False Never Curl True GHCupURL False GPGNone True Nothing (DM mempty) []) dirs defaultKeyBindings (GHCupInfo mempty mempty Nothing) pfreq loggerConfig

let withValidateYamlOpts vopts f = case vopts of
ValidateYAMLOpts { vInput = Nothing } ->
Expand Down
2 changes: 1 addition & 1 deletion ghcup-gen/ghcup-gen.cabal
Original file line number Diff line number Diff line change
Expand Up @@ -66,4 +66,4 @@ executable ghcup-gen
, text ^>=2.0
, transformers ^>=0.5
, versions >=6.0.0
, yaml-streamly ^>=0.12.0
, yaml ^>=0.11.11.2

0 comments on commit 81ff200

Please sign in to comment.