src/Main.hs

   1 module Main
   2 where
   3
   4 data Article = Article { headline  :: String,
   5                          byline    :: String,
   6                          body_html :: String }
   7              deriving (Eq, Show)
   8
   9 parse_article :: String -> String
  10 parse_article _ = ""
  11
  12 main :: IO ()
  13 main = do
  14   putStrLn "Hello, world."