{-# OPTIONS_GHC -fwarn-incomplete-patterns  #-}
{-# OPTIONS_GHC -fwarn-missing-methods      #-}     
{-# LANGUAGE DeriveDataTypeable             #-}

module Facts.Geography.Continents where

import Data.Data
import Data.Typeable

data Continent = Africa
               | Antarctica
               | Asia
               | Australia
               | Europe
               | NorthAmerica
               | SouthAmerica
               deriving (Data, Eq, Ord, Typeable)

instance Show Continent where
         show Africa       = "Africa"        
         show Antarctica   = "Antarctica"
         show Asia         = "Asia"
         show Australia    = "Australia"
         show Europe       = "Europe"
         show NorthAmerica = "North America"
         show SouthAmerica = "South America"