Commit 8ee4d39530e3b2d2d939e75a7466c5ac8928297f Parent: b264de6146955f6b4f9831bfc363afb61c35d72c Author: mcol <mcol@posteo.net> Date: 2021-11-24 18:00:42 +0000 Committer: mcol <mcol@posteo.net> Committed: 2021-11-24 18:00:42 +0000 remove redundant combinator
src/Templates.hs Modified
@@ -167,8 +167,4 @@ This function gets the output HTML data and is responsible for saving it to file. -} writeTo :: FilePath -> Html -> IO () -writeTo = flip $ goldfinch appendFile (unpack . htmlSource) - --- G combinator - goldfinch. -goldfinch :: (b -> c -> d) -> (a -> c) -> a -> b -> d -goldfinch f g x y = f y (g x) +writeTo path = appendFile path . unpack . htmlSource