13 lines
221 B
Haskell
13 lines
221 B
Haskell
module Main where
|
|
|
|
import Lib
|
|
import Parsing
|
|
import Types
|
|
|
|
main :: IO ()
|
|
main = do
|
|
content <- fmap (concat . lines) getContents
|
|
print (stringToHTML content)
|
|
putStrLn ""
|
|
print (htmlToString $ stringToHTML content)
|