%----------------------------------------------------------------------------
%
%  Title       :  GShowExt.lhs
%  Author(s)   :  Patrik Jansson
%  License     :  BSD
%  Created     :  6 March 2008
%
%  Remarks     :  -
%
%----------------------------------------------------------------------------

> module GShowExt where
> import CompanyDatatypes

> gshowsCompany :: Company -> String
> gshowsCompany x = error "Uniplate: GShow cannot be implemented"