Sha256: d9b263b7a826a3b4caa7d817a423465e74f3da039c9508ae2db0b44c688bee06
Contents?: true
Size: 1.14 KB
Versions: 52
Compression:
Stored size: 1.14 KB
Contents
module Person ( Address (..) , Born (..) , Name (..) , Person (..) , bornStreet , renameStreets , setBirthMonth , setCurrentStreet ) where import Data.Time.Calendar (Day) data Person = Person { _name :: Name , _born :: Born , _address :: Address } data Name = Name { _foreNames :: String , _surName :: String } data Born = Born { _bornAt :: Address , _bornOn :: Day } data Address = Address { _street :: String , _houseNumber :: Int , _place :: String , _country :: String } bornStreet :: Born -> String bornStreet = error "You need to implement this function." setCurrentStreet :: String -> Person -> Person setCurrentStreet = error "You need to implement this function." setBirthMonth :: Int -> Person -> Person setBirthMonth = error "You need to implement this function." renameStreets :: (String -> String) -> Person -> Person renameStreets = error "You need to implement this function."
Version data entries
52 entries across 52 versions & 1 rubygems