2022-08-10 22:41:41 +02:00
|
|
|
module Main where
|
|
|
|
|
|
|
|
import Lib
|
2022-08-20 03:18:43 +02:00
|
|
|
import Parsing
|
|
|
|
import Types
|
2022-08-10 22:41:41 +02:00
|
|
|
|
|
|
|
main :: IO ()
|
2022-08-20 03:18:43 +02:00
|
|
|
main = do
|
|
|
|
content <- fmap (concat . lines) getContents
|
|
|
|
print (stringToHTML content)
|
|
|
|
putStrLn ""
|
|
|
|
print (htmlToString $ stringToHTML content)
|