Add some more frozen call stacks where it makes sense

Author: ndmitchell

src/Development/Shake/Internal/Rules/File.hs

@@ -563,4 +563,4 @@ addPhony help act = addUserRule $ FileRule help $ fmap ModePhony . act
 --   If the 'Action' completes successfully the file is considered up-to-date, even if the file
 --   has not changed.
 (%>) :: Located => FilePattern -> (FilePath -> Action ()) -> Rules ()
-(%>) test act = (if simple test then id else priority 0.5) $ root (show test ++ " %> at " ++ callStackTop) (test ?==) act
+(%>) test act = withFrozenCallStack $ (if simple test then id else priority 0.5) $ root (show test ++ " %> at " ++ callStackTop) (test ?==) act

src/Development/Shake/Internal/Rules/Files.hs

@@ -165,7 +165,7 @@ ps &%> act
     | not $ compatible ps = error $ unlines $
         "All patterns to &%> must have the same number and position of // and * wildcards" :
         ["* " ++ p ++ (if compatible [p, head ps] then "" else " (incompatible)") | p <- ps]
-    | otherwise = do
+    | otherwise = withFrozenCallStack $ do
         forM_ (zipFrom 0 ps) $ \(i,p) ->
             (if simple p then id else priority 0.5) $
                 fileForward (show ps ++ " &%> at " ++ callStackTop) $ let op = (p ?==) in \file -> if not $ op file then Nothing else Just $ do