Bloomberg.hs

{-# LANGUAGE RecordWildCards #-}

module Bloomberg where
import Data.Time
import Text.Format

data Issue = Issue {
     title :: String,
     price :: Double,
     pages :: Int,
     publishDate :: Day,
     subject :: String
} deriving (Show)

publish Issue{..}= flip format $ 
        [title,show price,show pages,show publishDate,subject]

message = unwords ["This is the issue {3} of {0}.",
                   "It is {2} pages long, ",
                   "and costs {1}. It is about {4}"]

main = do
   let bbw = Issue "Bloomberg Businessweek" 5.99  112 
                (fromGregorian 2015 6 5) "code"
   print $ publish bbw message