Hey! We're downloading a page!

bos · Sep 7, 2011 · 888b050 · 888b050
1 parent 91097dd
commit 888b050
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 1 deletion.
diff --git a/src/Download.hs b/src/Download.hs
@@ -0,0 +1,5 @@
+module Download where
+
+import Network.HTTP.Enumerator
+
+download url = simpleHttp url
diff --git a/src/Main.hs b/src/Main.hs
@@ -1,5 +1,8 @@
 import System.Environment
+import Download
 
 main = do
   args <- getArgs
   putStrLn ("So! Your args are " ++ show args)
+  page <- download (head args)
+  print page
diff --git a/strange-loop-2011.cabal b/strange-loop-2011.cabal
@@ -7,4 +7,6 @@ executable strange-loop
   hs-source-dirs: src
   main-is: Main.hs
 
-  build-depends: base
+  build-depends:
+    base,
+    http-enumerator