module Control.Scheduling.Event (Event(..)) where import Text.Printf (printf, PrintfArg(..), fmtPrecision, fmtChar, errorBadFormat, formatString, vFmt, IsChar) import Control.Lens ((^.), (.~), (<&>), set, view, makeLenses, makeFields) import Data.Text (Text) import Data.Map (Map) data Event = Event { _title :: String , _description :: String } makeLenses ''Event