From b962bf4af9681db10bc15b933bcda0293ae06d91 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Sat, 4 Sep 2021 15:10:07 +0200 Subject: [PATCH] Add missing qAddDependentFiles --- app/ghcup/Main.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/app/ghcup/Main.hs b/app/ghcup/Main.hs index e12d3dd..86a991e 100644 --- a/app/ghcup/Main.hs +++ b/app/ghcup/Main.hs @@ -57,6 +57,7 @@ import Data.Void import GHC.IO.Encoding import Haskus.Utils.Variant.Excepts import Language.Haskell.TH +import Language.Haskell.TH.Syntax ( Quasi(qAddDependentFile) ) import Options.Applicative hiding ( style ) import Options.Applicative.Help.Pretty ( text ) import Prelude hiding ( appendFile ) @@ -1405,6 +1406,7 @@ plan_json :: String plan_json = $( LitE . StringL <$> runIO (handleIO (\_ -> pure "") $ do fp <- findPlanJson (ProjectRelativeToDir ".") + qAddDependentFile fp c <- B.readFile fp (Just res) <- pure $ decodeStrict' @Value c pure $ T.unpack $ decUTF8Safe' $ encodePretty res