From a69d2251e4416566dadacf668f7036ccba31fec4 Mon Sep 17 00:00:00 2001 From: Neil Mitchell Date: Mon, 30 Dec 2024 11:59:31 +0000 Subject: [PATCH] Disambiguate a view pattern Summary: Test Plan: --- src/Development/Shake/Internal/Rules/File.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Development/Shake/Internal/Rules/File.hs b/src/Development/Shake/Internal/Rules/File.hs index 3946ee2f5..ec52fde2c 100644 --- a/src/Development/Shake/Internal/Rules/File.hs +++ b/src/Development/Shake/Internal/Rules/File.hs @@ -206,7 +206,7 @@ ruleIdentity _ = \k v -> case answer v of Nothing -> Nothing ruleRun :: ShakeOptions -> (FilePath -> Rebuild) -> BuiltinRun FileQ FileR -ruleRun opts@ShakeOptions{..} rebuildFlags o@(FileQ (fileNameToString -> xStr)) oldBin@(fmap getEx -> old :: Maybe Answer) mode = do +ruleRun opts@ShakeOptions{..} rebuildFlags o@(FileQ (fileNameToString -> xStr)) oldBin@(fmap getEx -> (old :: Maybe Answer)) mode = do -- for One, rebuild makes perfect sense -- for Forward, we expect the child will have already rebuilt - Rebuild just lets us deal with code changes -- for Phony, it doesn't make that much sense, but probably isn't harmful?