Add a dependency on tagsoup.

Start throwing junk into Main.

diff --git a/lwn-epub.cabal b/lwn-epub.cabal
index 4c60779cd9f31c57f6faa090703c2c48ac41fe5c..37422447b0c4a5875ff92110f159bded2eb10dcf 100644 (file)
--- a/lwn-epub.cabal
+++ b/lwn-epub.cabal
@@ -9,7 +9,8 @@ build-type:     Simple
 
 executable lwn-epub
   build-depends:
-    base                        == 4.5.*
+    base                        == 4.5.*,
+    tagsoup                     == 0.12.*
 
   main-is:
     Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index da760e45af7a58676b8b6cfdd2c0198de6c41d78..e91654da85a6446d32a02afed636a106dd514a7e 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,6 +1,13 @@
 module Main
 where
 
+data Article = Article { headline  :: String,
+                         byline    :: String,
+                         body_html :: String }
+             deriving (Eq, Show)
+
+parse_article :: String -> String
+parse_article _ = ""
 
 main :: IO ()
 main = do