Add simple parse html

Main.hs

@@ -2,9 +2,10 @@ module Main where
 
 import System.Environment
 import Download
+import ParseHtml
 
 main :: IO ()
 main = do 
     args <- getArgs
     htmlResult <- downloadHtmlDef (head args)
-    putStrLn htmlResult
+    printDifferentDef htmlResult

ParseHtml.hs

@@ -0,0 +1,17 @@
+module ParseHtml (printDifferentDef) where
+
+import Text.HTML.TagSoup
+
+printDifferentDef :: String -> IO ()
+printDifferentDef x = putStrLn (getDifferentDefMessages x)
+
+getDifferentDefMessages :: String -> String
+getDifferentDefMessages x = renderTags (differentDefTags x)
+
+differentDefTags :: String -> [Tag String]
+differentDefTags = 
+    filter (~== TagText "") . (takeWhile (~/= "<div id=contentbox>"))
+    . (dropWhile (~/= "<div id=vtoolbar>")) . parseTags
+
+numberOfDef :: [Tag String] -> Int
+numberOfDef tags = ((length tags) + 1) `div` 3

makefile

@@ -2,7 +2,7 @@ CC=ghc
 ARGS=--make -dynamic
 FILENAME=dictfr
 all:
-	$(CC) $(ARGS) -o $(FILENAME) Main.hs Download.hs
+	$(CC) $(ARGS) -o $(FILENAME) Main.hs Download.hs ParseHtml.hs
 
 clean:
 	rm -f *.o *.hi