main = do
    src <- readFile "tagsoup2.txt"
    pre <- readFile "Prefix.hs"
    let code = show $ optimiseHs $ codeGen $ optimiseLp $ resolve $ parse src
    writeFile "../Text/HTML/TagSoup/Generated/Parser.hs" (pre ++ code)
main = do
    src <- readFile "tagsoup2.txt"
    pre <- readFile "Prefix.hs"
    let code = show $ optimiseHs $ codeGen $ optimiseLp $ resolve $ parse src
    writeFile "../Text/HTML/TagSoup/Generated/Parser.hs" (pre ++ code)
main = do
    src <- readFile "tagsoup2.txt"
    pre <- readFile "Prefix.hs"
    let code = show $ optimiseHs $ codeGen $ optimiseLp $ resolve $ parse src
    writeFile "../Text/HTML/TagSoup/Generated/Parser.hs" (pre ++ code)