Commit f0cd4e9c4d7073b9d48ad452c8bb4edf0ecddf66 Parent: 46cab4e4c92887baaeee45890602f1c07b41ee87 Author: mcol <mcol@posteo.net> Date: 2021-12-04 12:47:32 +0300 Committer: mcol <mcol@posteo.net> Committed: 2021-12-04 12:47:32 +0300 Add newlines around where block functions
src/Templates.hs Modified
@@ -206,6 +206,7 @@ let isRepo = (toFilePath . dirname $ p) == "repo/" isLink <- pathIsSymbolicLink . toFilePath $ p return $ not isRepo || isLink + copy :: Path Abs Dir -> IO () copy p = do let output' = output </> dirname p @@ -226,6 +227,7 @@ let isTemplate = FP.takeExtension fp `elem` [".html", ".include"] isLink <- pathIsSymbolicLink fp return $ not isTemplate || isLink + copy :: Path Abs File -> IO () copy p = do let fp = toFilePath p