projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-01-07 12:22:18 by simonmar]
[ghc-base.git]
/
Text
/
Show
/
Functions.hs
diff --git
a/Text/Show/Functions.hs
b/Text/Show/Functions.hs
index
5d5c914
..
d0e2207
100644
(file)
--- a/
Text/Show/Functions.hs
+++ b/
Text/Show/Functions.hs
@@
-2,19
+2,24
@@
-- |
-- Module : Text.Show.Functions
-- Copyright : (c) The University of Glasgow 2001
-- |
-- 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
--
--
-- Maintainer : libraries@haskell.org
-- Stability : provisional
-- Portability : portable
--
--- 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
import Prelude
+#ifndef __NHC__
instance Show (a -> b) where
showsPrec _ _ = showString "<function>"
instance Show (a -> b) where
showsPrec _ _ = showString "<function>"
+#endif