med-module-0.0: src/Sound/MED/Raw/MMDInstrInfo.hs

module Sound.MED.Raw.MMDInstrInfo where

import Sound.MED.Basic.Amiga

data MMDInstrInfo = MMDInstrInfo
  { name :: Maybe [ UBYTE ]
  }
  deriving (Show)

peek :: UWORD -> MEM -> PTR -> IO MMDInstrInfo
peek size m p = do
  name' <- skipIf (size < 40) $ mapM (peekUBYTE m) $ pointerRange p 1 40
  return $ MMDInstrInfo
    name'