Comment.hs

module Codec.Xlsx.Types.Comment where

import           Data.Text               (Text)

import           Codec.Xlsx.Types.Common

-- | User comment for a cell
--
-- TODO: the following child elements:
-- guid, shapeId, commentPr
--
-- Section 18.7.3 "comment (Comment)" (p. 1749)
data Comment = Comment
    { _commentText    :: XlsxText
    -- ^ cell comment text, maybe formatted
    -- Section 18.7.7 "text (Comment Text)" (p. 1754)
    , _commentAuthor  :: Text
    -- ^ comment author
    , _commentVisible :: Bool
    } deriving (Show, Eq)