{-# OPTIONS -XEmptyDataDecls #-}
module NET.System.StringComparison.Type ( module NET.System.StringComparison.Type ) where

import qualified NET
import qualified NET.System.Type.Type as NET.System.Type
import qualified NET.System.Enum.Type as NET.System.Enum
import qualified NET.System.IComparable.Type as NET.System.IComparable
import qualified NET.System.IFormattable.Type as NET.System.IFormattable
import qualified NET.System.IConvertible.Type as NET.System.IConvertible

instance NET.System.IComparable.IComparable (StringComparisonTy) where
  instanceName_IComparable _ = "NET.System.StringComparison.StringComparison"

instance NET.System.IFormattable.IFormattable (StringComparisonTy) where
  instanceName_IFormattable _ = "NET.System.StringComparison.StringComparison"

instance NET.System.IConvertible.IConvertible (StringComparisonTy) where
  instanceName_IConvertible _ = "NET.System.StringComparison.StringComparison"

type StringComparison a = Int
data StringComparisonTy
 = CurrentCulture
 | CurrentCultureIgnoreCase
 | InvariantCulture
 | InvariantCultureIgnoreCase
 | Ordinal
 | OrdinalIgnoreCase
  deriving ( Enum, Show, Read )
toStringComparison :: StringComparisonTy -> StringComparison ()
toStringComparison tag = fromEnum tag

fromStringComparison :: StringComparison () -> StringComparisonTy
fromStringComparison obj = toEnum obj