/usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeText/Show_List.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/PreludeText/Show_List.hs


module Prelude(Show(..)) where

instance (Show a) => Show [a] where
  showsPrec p = showList

  showsType a = showChar '[' . (showsType . head) a . showChar ']'

(Return to Plan 9 Home Page)