Utility.hs

module Sound.ALSA.Sequencer.Utility where

showsField :: Show a => a -> ShowS
showsField = showsPrec 11

showsRecord :: Int -> String -> [ShowS] -> ShowS
showsRecord prec name fields =
   showParen (prec >= 10) $
   showString name . showString ".Cons" .
   foldr (.) id (map (\f -> showChar ' ' . f) fields)