-- GENERATED by C->Haskell Compiler, version 0.17.2 Crystal Seed, 24 Jan 2009 (Haskell) -- Edit the ORIGNAL .chs file instead! {-# LINE 1 "./Graphics/Wayland/Internal/Version.chs" #-} module Graphics.Wayland.Internal.Version (version) where data VersionInt = MajorInt | MinorInt | MicroInt deriving (Eq,Ord) instance Enum VersionInt where fromEnum MajorInt = 1 fromEnum MinorInt = 5 fromEnum MicroInt = 0 toEnum 1 = MajorInt toEnum 5 = MinorInt toEnum 0 = MicroInt toEnum unmatched = error ("VersionInt.toEnum: Cannot match " ++ show unmatched) {-# LINE 5 "./Graphics/Wayland/Internal/Version.chs" #-} version = (fromEnum MajorInt, fromEnum MinorInt, fromEnum MicroInt)