-- |
-- Module : Text.Show.Functions
-- Copyright : (c) The University of Glasgow 2001
--- License : BSD-style (see the file libraries/core/LICENSE)
+-- License : BSD-style (see the file libraries/base/LICENSE)
--
-- Maintainer : libraries@haskell.org
-- Stability : provisional
-- Portability : portable
--
--- $Id: Functions.hs,v 1.2 2002/04/24 16:31:47 simonmar Exp $
+-- Optional instance of 'Text.Show.Show' for functions:
--
--- Optional instance of Text.Show.Show for functions.
+-- > instance Show (a -> b) where
+-- > showsPrec _ _ = showString \"\<function\>\"
--
-----------------------------------------------------------------------------
-module Text.Show.Functions where
+module Text.Show.Functions () where
import Prelude
+#ifndef __NHC__
instance Show (a -> b) where
showsPrec _ _ = showString "<function>"
+#endif