module Condor.Commons.Document
( DocName
, Document(..)
, docFromStrings
, docName
, docText
) where
import Prelude hiding (concat, map)
import qualified Data.List as List
import Data.Text
type DocName = Text
data Field = Field Text Text
data Document = Document DocName [Field]
fieldFromStrings :: String -> String -> Field
fieldFromStrings k v = Field (pack k) (pack v)
docFromStrings :: String -> String -> Document
docFromStrings t c = Document (pack t) [fieldFromStrings "content" c]
docName :: Document -> Text
docName (Document a _) = a
docText :: Document -> Text
docText (Document _ fs) = concat $ List.map (\(Field _ y) -> y) fs