1 2 3 4 5 6 7 8 9
module Bee ( Beehive (..) ) where data Beehive = Beehive { hiveWorkers :: Int , hiveOwner :: String }