countable-1.1: test/Show.hs

module Show where

import Data.Searchable

showFunction :: (Show a, Finite a, Show b) => (a -> b) -> String
showFunction f = show f