Permalink
Browse files

Hey! We're downloading a page!

  • Loading branch information...
bos committed Sep 7, 2011
1 parent 91097dd commit 888b050e0ada74c619b06bbc0cea439e4a0f9a89
Showing with 11 additions and 1 deletion.
  1. +5 −0 src/Download.hs
  2. +3 −0 src/Main.hs
  3. +3 −1 strange-loop-2011.cabal
View
@@ -0,0 +1,5 @@
+module Download where
+
+import Network.HTTP.Enumerator
+
+download url = simpleHttp url
View
@@ -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
View
@@ -7,4 +7,6 @@ executable strange-loop
hs-source-dirs: src
main-is: Main.hs
- build-depends: base
+ build-depends:
+ base,
+ http-enumerator

0 comments on commit 888b050

Please sign in to comment.