module Saturn.Unstable.Extra.Time where

import qualified Data.Time as Time
import qualified Data.Word as Word

dayOfWeekToWord8 :: Time.DayOfWeek -> Word.Word8
dayOfWeekToWord8 :: DayOfWeek -> Word8
dayOfWeekToWord8 DayOfWeek
dayOfWeek = case DayOfWeek
dayOfWeek of
  DayOfWeek
Time.Sunday -> Word8
0
  DayOfWeek
Time.Monday -> Word8
1
  DayOfWeek
Time.Tuesday -> Word8
2
  DayOfWeek
Time.Wednesday -> Word8
3
  DayOfWeek
Time.Thursday -> Word8
4
  DayOfWeek
Time.Friday -> Word8
5
  DayOfWeek
Time.Saturday -> Word8
6