hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add missing qAddDependentFiles

Browse Source
This commit is contained in:
Julian Ospald 2021-09-04 15:10:07 +02:00
parent c54dc05d92
commit b962bf4af9
Signed by: hasufell
GPG Key ID: 3786C5262ECB4A3F
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/ghcup/Main.hs
View File

@ -57,6 +57,7 @@ import Data.Void
import GHC.IO.Encoding import GHC.IO.Encoding
import Haskus.Utils.Variant.Excepts import Haskus.Utils.Variant.Excepts
import Language.Haskell.TH import Language.Haskell.TH
import Language.Haskell.TH.Syntax ( Quasi(qAddDependentFile) )
import Options.Applicative hiding ( style ) import Options.Applicative hiding ( style )
import Options.Applicative.Help.Pretty ( text ) import Options.Applicative.Help.Pretty ( text )
import Prelude hiding ( appendFile ) import Prelude hiding ( appendFile )
@ -1405,6 +1406,7 @@ plan_json :: String
plan_json = $( LitE . StringL <$> plan_json = $( LitE . StringL <$>
runIO (handleIO (\_ -> pure "") $ do runIO (handleIO (\_ -> pure "") $ do
fp <- findPlanJson (ProjectRelativeToDir ".") fp <- findPlanJson (ProjectRelativeToDir ".")
qAddDependentFile fp
c <- B.readFile fp c <- B.readFile fp
(Just res) <- pure $ decodeStrict' @Value c (Just res) <- pure $ decodeStrict' @Value c
pure $ T.unpack $ decUTF8Safe' $ encodePretty res pure $ T.unpack $ decUTF8Safe' $ encodePretty res