    {-# LANGUAGE Safe #-}
    -- This module deliberately declares orphan instances:
    {-# OPTIONS_GHC -Wno-orphans #-}

    -- |
    --
    -- Module      :  Text.Show.Functions
    -- Copyright   :  (c) The University of Glasgow 2001
    -- License     :  BSD-style (see the file libraries/base/LICENSE)
    --
    -- Maintainer  :  libraries@haskell.org
    -- Stability   :  provisional
    -- Portability :  portable
    --
    -- Optional instance of 'Text.Show.Show' for functions:
    --
    -- > instance Show (a -> b) where
    -- >    showsPrec _ _ = showString "<function>"
    --

    module Text.Show.Functions () where

    import Prelude

    -- | @since 2.01
    instance Show (a -> b) where
            showsPrec :: Int -> (a -> b) -> ShowS
    showsPrec Int
    _ a -> b
    _ = String -> ShowS
    showString String
    "<function>"