X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Text%2FShow%2FFunctions.hs;h=d0e2207c4467cb27122f5f3fd20f623d27a6bf99;hb=14c3d7f368a6ec5e760b2fd57218171eeaf53a29;hp=b246c44d308276b96493dc2c63fba4d0cb6653c1;hpb=7f1f4e7a695c402ddd3a1dc2cc7114e649a78ebc;p=ghc-base.git

diff --git a/Text/Show/Functions.hs b/Text/Show/Functions.hs
index b246c44..d0e2207 100644
--- a/Text/Show/Functions.hs
+++ b/Text/Show/Functions.hs
@@ -1,22 +1,25 @@
 -----------------------------------------------------------------------------
--- 
+-- |
 -- 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.1 2001/06/28 14:15:04 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