From 8e5616a377196f0a200947173d4c78a3dca8a55f Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Fri, 22 Jun 2012 17:06:11 -0400 Subject: [PATCH] Add a dependency on tagsoup. Start throwing junk into Main. --- lwn-epub.cabal | 3 ++- src/Main.hs | 7 +++++++ 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lwn-epub.cabal b/lwn-epub.cabal index 4c60779..3742244 100644 --- 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 da760e4..e91654d 100644 --- 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 -- 2.43.2