From eb370379847d8a5f4104727066e0e7a408781571 Mon Sep 17 00:00:00 2001 From: Neil Mitchell Date: Mon, 30 Dec 2024 13:06:48 +0000 Subject: [PATCH] Disambiguate another view pattern Summary: Test Plan: --- src/Development/Shake/Internal/Rules/Files.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Development/Shake/Internal/Rules/Files.hs b/src/Development/Shake/Internal/Rules/Files.hs index 2a9a9d33..fa9845fa 100644 --- a/src/Development/Shake/Internal/Rules/Files.hs +++ b/src/Development/Shake/Internal/Rules/Files.hs @@ -90,7 +90,7 @@ ruleIdentity _ = \_ (FilesA files) -> ruleRun :: ShakeOptions -> (FilePath -> Rebuild) -> BuiltinRun FilesQ FilesA -ruleRun opts rebuildFlags k o@(fmap getEx -> old :: Maybe Result) mode = do +ruleRun opts rebuildFlags k o@(fmap getEx -> (old :: Maybe Result)) mode = do let r = map (rebuildFlags . fileNameToString . fromFileQ) $ fromFilesQ k (ruleVer, ruleAct, ruleErr) <- getUserRuleInternal k (\(FilesRule s _) -> Just s) $ \(FilesRule _ f) -> f k