pointType12Parser :: Get PointType12
pointType12Parser = do 

  seconds <- getWord8  
  minutes <- getWord8  
  hours <- getWord8  
  day <- getWord8  
  month <- getWord8  
  year <- getWord8  
  leapYear <- getWord8  
  dayOfWeek <- getWord8  
  timeSMHDMY <- getTime  
  century <- getWord8  
  enableDaySavTime <- anyButNull  
  
  return $ PointType12 seconds minutes hours day month year leapYear dayOfWeek timeSMHDMY century enableDaySavTime  
pointType12Parser :: Get PointType12
pointType12Parser = do 

  seconds <- getWord8  
  minutes <- getWord8  
  hours <- getWord8  
  day <- getWord8  
  month <- getWord8  
  year <- getWord8  
  leapYear <- getWord8  
  dayOfWeek <- getWord8  
  timeSMHDMY <- getTime  
  century <- getWord8  
  enableDaySavTime <- anyButNull  
  
  return $ PointType12 seconds minutes hours day month year leapYear dayOfWeek timeSMHDMY century enableDaySavTime  
pointType12Parser = do 

  seconds <- getWord8  
  minutes <- getWord8  
  hours <- getWord8  
  day <- getWord8  
  month <- getWord8  
  year <- getWord8  
  leapYear <- getWord8  
  dayOfWeek <- getWord8  
  timeSMHDMY <- getTime  
  century <- getWord8  
  enableDaySavTime <- anyButNull  
  
  return $ PointType12 seconds minutes hours day month year leapYear dayOfWeek timeSMHDMY century enableDaySavTime  