update maintainer email
[hsv4l2:v4l2.git] / Graphics / V4L2 / Types / Internal.hs
1 {-# LANGUAGE DeriveDataTypeable #-}
2 {- |
3 Module      : Graphics.V4L2.Types.Internal
4 Maintainer  : claude@mathr.co.uk
5 Stability   : no
6 Portability : no
7 -}
8 module Graphics.V4L2.Types.Internal
9   ( Fraction(..)
10   , fromFraction
11   ) where
12
13 import Data.Data (Data)
14 import Data.Word (Word32)
15 import Data.Typeable (Typeable)
16
17 import Bindings.Linux.VideoDev2
18
19 {- |  Fraction type. -}
20 data Fraction = Fraction{ fractionNumerator, fractionDenominator:: Word32 }
21   deriving (Eq, Ord, Read, Show, Data, Typeable)
22
23 {- |  Unmarshal fraction. -}
24 fromFraction :: C'v4l2_fract -> Fraction
25 fromFraction f = Fraction
26   { fractionNumerator = c'v4l2_fract'numerator f
27   , fractionDenominator = c'v4l2_fract'denominator f
28   }