writePage :: FilePath -> Site -> SiteTemplates -> Page -> Action ()
writePage = writePageSetIgnore defaultIgnore
  where
    defaultIgnore :: FilePath -> Bool
    defaultIgnore path =
         path == "page.md"
      || isInfixOf ".git" path
      || isInfixOf ".stack-work" path
writePage :: FilePath -> Site -> SiteTemplates -> Page -> Action ()
writePage = writePageSetIgnore defaultIgnore
  where
    defaultIgnore :: FilePath -> Bool
    defaultIgnore path =
         path == "page.md"
      || isInfixOf ".git" path
      || isInfixOf ".stack-work" path
writePage = writePageSetIgnore defaultIgnore
  where
    defaultIgnore :: FilePath -> Bool
    defaultIgnore path =
         path == "page.md"
      || isInfixOf ".git" path
      || isInfixOf ".stack-work" path