this repo has no description
tulkdan.dev
1module HsBlog
2 ( convertSingle
3 , convertDirectory
4 , process
5 )
6 where
7
8import qualified HsBlog.Html as Html
9import qualified HsBlog.Markup as Markup
10
11import HsBlog.Convert (convert)
12import System.IO
13
14process :: Html.Title -> String -> String
15process title = Html.render . convert title . Markup.parse
16
17convertSingle :: Html.Title -> Handle -> Handle -> IO ()
18convertSingle title input output = do
19 content <- hGetContents input
20 hPutStrLn output (process title content)
21
22convertDirectory :: FilePath -> FilePath -> IO ()
23convertDirectory = error "Not emplemented"