{-# OPTIONS -XEmptyDataDecls #-}
module NET.System.Globalization.DigitShapes where

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

data DigitShapes_ a
type DigitShapes a = NET.System.Enum.Enum (DigitShapes_ a)

data DigitShapesTy
 = Context
 | None
 | NativeNational
  deriving ( Enum, Show, Read )
toDigitShapes :: DigitShapesTy -> DigitShapes ()
toDigitShapes tag = System.IO.Unsafe.unsafePerformIO (NET.System.Enum.parse (System.IO.Unsafe.unsafePerformIO (NET.System.Type.getType "System.Globalization.DigitShapes, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089")) (show tag))

fromDigitShapes :: DigitShapes () -> DigitShapesTy
fromDigitShapes obj = read (show obj)