X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FMain.hs;h=e91654da85a6446d32a02afed636a106dd514a7e;hp=da760e45af7a58676b8b6cfdd2c0198de6c41d78;hb=8e5616a377196f0a200947173d4c78a3dca8a55f;hpb=e269dd2223c70d20daecad774be9e920ec87615c

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