🐙 Templated web page generator for your git repositories
git clone https://github.com/m-col/gitja
Files | Refs | Readme | License

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