13 lines
264 B
Haskell
13 lines
264 B
Haskell
module Main where
|
|
|
|
import System.Environment
|
|
import Download
|
|
import ParseHtml
|
|
import qualified Data.Text.Lazy.Encoding as E
|
|
|
|
main :: IO ()
|
|
main = do
|
|
args <- getArgs
|
|
htmlResult <- downloadHtmlDef (head args)
|
|
printDifferentDef (E.decodeUtf8 htmlResult)
|