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

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

data UriHostNameType_ a
type UriHostNameType a = NET.System.Enum.Enum (UriHostNameType_ a)

data UriHostNameTypeTy
 = Unknown
 | Basic
 | Dns
 | IPv4
 | IPv6
  deriving ( Enum, Show, Read )
toUriHostNameType :: UriHostNameTypeTy -> UriHostNameType ()
toUriHostNameType tag = System.IO.Unsafe.unsafePerformIO (NET.System.Enum.parse (System.IO.Unsafe.unsafePerformIO (NET.System.Type.getType "System.UriHostNameType, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089")) (show tag))

fromUriHostNameType :: UriHostNameType () -> UriHostNameTypeTy
fromUriHostNameType obj = read(show obj)