{-# OPTIONS -XEmptyDataDecls #-}
module NET.System.DayOfWeek where

import NET
import qualified System.IO.Unsafe
import qualified NET.System.Type
import qualified NET.System.Enum

data DayOfWeek_ a
type DayOfWeek a = NET.System.Enum.Enum (DayOfWeek_ a)

data DayOfWeekTy
 = Sunday
 | Monday
 | Tuesday
 | Wednesday
 | Thursday
 | Friday
 | Saturday
  deriving ( Enum, Show, Read )
toDayOfWeek :: DayOfWeekTy -> DayOfWeek ()
toDayOfWeek tag = System.IO.Unsafe.unsafePerformIO (NET.System.Enum.parse (System.IO.Unsafe.unsafePerformIO (NET.System.Type.getType "System.DayOfWeek, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089")) (show tag))

fromDayOfWeek :: DayOfWeek () -> DayOfWeekTy
fromDayOfWeek obj = read (show obj)