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

import NET
import qualified NET.System.Type
import qualified NET.System.Enum

type SeekOrigin a = Int
data SeekOriginTy
 = Begin
 | Current
 | End
  deriving ( Enum, Show, Read )
toSeekOrigin :: SeekOriginTy -> SeekOrigin ()
toSeekOrigin tag = fromEnum tag

fromSeekOrigin :: SeekOrigin () -> SeekOriginTy
fromSeekOrigin obj = toEnum obj