WorkTime

Main API for WorkTime. This re-exports all functions meant to be used.

Documentation

data WorkTime

Main data type of the library. Represents an entry in Slack containing a Nickname, Timestamp, Datestamp and WorkDay that themselves contain several TaskDescription.

An entire entry will look as follows:

Rickard Andersson [11:16 PM]
[28.02] 8.5h
worked on missile guidance system
cleaned up parsing code

The first part is represented by a MessageLine and what follows is one Workday in this example.

An entry can also look as follows:

Rickard Andersson [11:16 PM]
[28.02] 8.5h
worked on missile guidance system
cleaned up parsing code
[01.03] 6h
fixed critical bug in missile guidance system
removed half of parsing code

In this example we have several Workday in one WorkTime.

Constructors

WorkTime MessageLine [Workday]

Instances

Show WorkTime

Methods

showsPrec :: Int -> WorkTime -> ShowS

show :: WorkTime -> String

showList :: [WorkTime] -> ShowS

data MessageLine

Represents a line like Rickard Andersson [10:48 AM] in Slack.

Instances

Show MessageLine

Methods

showsPrec :: Int -> MessageLine -> ShowS

show :: MessageLine -> String

showList :: [MessageLine] -> ShowS

data Workday

Represents a collection of lines like

[28.02] 8.5h
worked on missile guidance system
cleaned up parsing code

in Slack.

Instances

Show Workday

Methods

showsPrec :: Int -> Workday -> ShowS

show :: Workday -> String

showList :: [Workday] -> ShowS

fromText :: Text -> Either String [WorkTime]

Parses a Text either into a [WorkTime] or into an error message in the form of a String. The error message may be less than informative as it comes straight from the parser (Data.Attoparsec.Text).

workTimeHours :: WorkTime -> Double

Extracts the total work hours from a WorkTime entry, from all workdays in the entry.

workTimeNickname :: WorkTime -> Text

Extracts the nickname from a WorkTime entry.

hoursFromText :: Text -> Either String [(Text, Double)]

Takes a text and turns it into a list of a nickname (Text) and work hours (Double).

hours :: [WorkTime] -> Map Text Double

Takes a list of WorkTime and creates a map of nickname (Text) to work hours (Double).