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