gistfile1.txt

{-# LANGUAGE NamedDefaults #-}
module A (
    Stringify(..),
    default Stringify
  ) where

class Stringify a where
  stringify :: a -> String

instance Stringify Int where
  stringify n = "Int: " ++ show n

instance Stringify Bool where
  stringify b = "Bool: " ++ show b

instance Stringify [Char] where
  stringify s = "String: " ++ s

default Stringify (Int)