1 -----------------------------------------------------------------------------
3 -- Module : Text.Show.Functions
4 -- Copyright : (c) The University of Glasgow 2001
5 -- License : BSD-style (see the file libraries/base/LICENSE)
7 -- Maintainer : libraries@haskell.org
8 -- Stability : provisional
9 -- Portability : portable
11 -- Optional instance of 'Text.Show.Show' for functions:
13 -- > instance Show (a -> b) where
14 -- > showsPrec _ _ = showString \"\<function\>\"
16 -----------------------------------------------------------------------------
18 module Text.Show.Functions () where
23 instance Show (a -> b) where
24 showsPrec _ _ = showString "<function>"
26 instance (Show a,Show b) => Show (a->b) where
27 showsPrec d a = showString "<<function>>"
29 showsType a = showChar '(' . showsType value . showString " -> " .
30 showsType result . showChar ')'
31 where (value,result) = getTypes undefined