src/Codec/Goat/TimeFrame/Types.hs from lovasko/goat

src/Codec/Goat/TimeFrame/Types.hs

  get = do
    x   <- getMaybeOf getWord32be
    y   <- getMaybeOf getWord32be
    len <- getWord32be
    bs  <- aiGetByteString

Found

do x <- getMaybeOf getWord32be
   y <- getMaybeOf getWord32be
   len <- getWord32be
   bs <- aiGetByteString
   return $ TimeFrame x y len bs

Perhaps

do x <- getMaybeOf getWord32be
   y <- getMaybeOf getWord32be
   len <- getWord32be
   TimeFrame x y len <$> aiGetByteString

lovasko/goat