newTask title taskTime "" tags   = Task { _taskHeadingL = Heading title taskTime
                                        , _taskDescL    = Nothing
                                        , _taskTagsL    = Tags tags
                                        }
newTask title taskTime desc tags = Task { _taskHeadingL = Heading title taskTime
                                        , _taskDescL    = Just $ Desc desc
                                        , _taskTagsL    = Tags tags
                                        }

completeTask :: Time -> Task -> Task
completeTask t = taskHeadingL . taskTimeL . timeEndL %~ (<|> Just t)

