diff --git a/CabalApi.hs b/CabalApi.hs index ee9b439..91c525c 100644 --- a/CabalApi.hs +++ b/CabalApi.hs @@ -73,8 +73,8 @@ getGHCOptions ghcOptions binfo = ghcOptions ++ exts ++ [lang] ++ libs ++ libDirs cabalBuildInfo :: GenericPackageDescription -> BuildInfo cabalBuildInfo pd = fromJust $ fromLibrary pd <|> fromExecutable pd where - fromLibrary c = libBuildInfo . condTreeData <$> condLibrary c - fromExecutable c = buildInfo . condTreeData . snd <$> listToMaybe (condExecutables c) + fromLibrary c = libBuildInfo . condTreeData <$> condLibrary c + fromExecutable c = buildInfo . condTreeData . snd <$> listToMaybe (condExecutables c) ---------------------------------------------------------------- diff --git a/GHCApi.hs b/GHCApi.hs index f9a4767..e6f4f13 100644 --- a/GHCApi.hs +++ b/GHCApi.hs @@ -170,4 +170,4 @@ canCheckFast :: ModuleGraph -> Bool canCheckFast = not . any (hasTHorQQ . ms_hspp_opts) where hasTHorQQ :: DynFlags -> Bool - hasTHorQQ dflags = any (\opt -> xopt opt dflags) [Opt_TemplateHaskell, Opt_QuasiQuotes] + hasTHorQQ dflags = any (`xopt` dflags) [Opt_TemplateHaskell, Opt_QuasiQuotes]