main :: IO ()
main = do

    putStrLn "--------------------------------------------------\n"
        
    htmlResult <- readFile "src/InputHTML.html"
    cssResult  <- readFile "src/InputCSS.css"

    let dom = strToDom htmlResult

    case parseCss cssResult of
        Left err ->
            print err

        Right (cssVariables, cssRules) -> do

            let dom' = applyCssRules cssRules dom

            print cssVariables
            print cssRules
            --print dom
            print dom'
main :: IO ()
main = do

    putStrLn "--------------------------------------------------\n"
        
    htmlResult <- readFile "src/InputHTML.html"
    cssResult  <- readFile "src/InputCSS.css"

    let dom = strToDom htmlResult

    case parseCss cssResult of
        Left err ->
            print err

        Right (cssVariables, cssRules) -> do

            let dom' = applyCssRules cssRules dom

            print cssVariables
            print cssRules
            --print dom
            print dom'
main = do

    putStrLn "--------------------------------------------------\n"
        
    htmlResult <- readFile "src/InputHTML.html"
    cssResult  <- readFile "src/InputCSS.css"

    let dom = strToDom htmlResult

    case parseCss cssResult of
        Left err ->
            print err

        Right (cssVariables, cssRules) -> do

            let dom' = applyCssRules cssRules dom

            print cssVariables
            print cssRules
            --print dom
            print dom'