temp

qualify-web-ui/lib/Qualify/Data/Event.hs

@@ -0,0 +1,39 @@
+module Qualify.Data.Event
+( Event(..)
+) where
+
+import qualified Data.List.NonEmpty as NE
+import qualified Data.NonEmptyText as NET
+import qualified Data.Time as Time
+
+data Event =
+  Event
+    { time :: Time.UTCTime
+    , details :: EventDetails
+    }
+
+data EventDetails
+ = MoodEvent Mood Intensity
+ | ActivityEvent ActivityType
+ | ConsumptionEvent Substance Dose
+
+data Mood
+ = Angry
+ | Sad
+ | Happy
+ | Neutral
+
+data ActivityType
+  = Cycling Distance
+  | Running Distance
+  | Meditation DurationX
+  | Pushups (NE.NonEmpty WorkoutSet)
+
+newtype Intensity = Intensity Int
+newtype Duration = Minutes Int
+newtype Distance =  Miles Int
+newtype Reps = Reps Int
+newtype WorkoutSet = WorkoutSet Reps
+
+newtype Substance = Substance NET.NonEmptyText
+newtype Dose = Dose NET.NonEmptyText