first commit

.gitignore

@@ -0,0 +1,3 @@
+*.hi
+*.o
+dictfr

Download.hs

@@ -0,0 +1,10 @@
+module Download (downloadHtmlDef) where 
+
+import Network.HTTP
+
+baseUrl = "http://www.cnrtl.fr/definition/"
+
+downloadHtmlDef :: String -> IO String
+downloadHtmlDef w = 
+    simpleHTTP (req) >>= getResponseBody
+    where req = getRequest (baseUrl ++ w)

Main.hs

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

README.md

@@ -0,0 +1 @@
+A command line tool to search for french word definition.

makefile

@@ -0,0 +1,11 @@
+CC=ghc
+ARGS=--make -dynamic
+FILENAME=dictfr
+all:
+	$(CC) $(ARGS) -o $(FILENAME) Main.hs Download.hs
+
+clean:
+	rm -f *.o *.hi
+
+cleanall:
+	rm -f *.o *.hi $(FILENAME)