{-# OPTIONS -fglasgow-exts #-}

> module GShow (gshowsCompany) where

> import Prelude hiding (show)
> import CompanyDatatypes

> gshowsCompany :: Company -> String
> gshowsCompany = error "PolyP does not handle this case"