А в каком формате ввод?
покажи код, я перепишу его в своём стиле. вкратце — NamedFieldPuns, RecordWildCards
data User = MkUser{username :: String, profile :: Profile} data Profile = MKProfile{firstName, lastName :: String} name :: User -> String name u = u.profile.firstName ++ " " ++ u.profile.lastName
Обсуждают сегодня