{"id":384284,"date":"2024-06-29T05:25:18","date_gmt":"2024-06-29T05:25:18","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=384284"},"modified":"-0001-11-30T00:00:00","modified_gmt":"2024-06-29T05:25:18","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=384284","title":{"rendered":"<span>Higher-Kinded Data, \u0438\u043b\u0438 \u0435\u0449\u0451 \u043e\u0434\u0438\u043d \u0441\u043f\u043e\u0441\u043e\u0431 \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0441 \u0441\u0443\u0449\u043d\u043e\u0441\u0442\u044f\u043c\u0438 \u0431\u0430\u0437\u044b \u0434\u0430\u043d\u043d\u044b\u0445 (\u0438 \u043d\u0435 \u0442\u043e\u043b\u044c\u043a\u043e)<\/span>"},"content":{"rendered":"<div><!--[--><!--]--><\/div>\n<div id=\"post-content-body\">\n<div>\n<div class=\"article-formatted-body article-formatted-body article-formatted-body_version-1\">\n<div xmlns=\"http:\/\/www.w3.org\/1999\/xhtml\">\n<p><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w1560\/getpro\/habr\/post_images\/3b7\/45e\/3cf\/3b745e3cf32114d419c2d47119184f22.png\" alt=\"image\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/post_images\/3b7\/45e\/3cf\/3b745e3cf32114d419c2d47119184f22.png\"\/><\/p>\n<p>  <\/p>\n<h2 id=\"vazhnyy-diskleymer\">\u0412\u0430\u0436\u043d\u044b\u0439 \u0434\u0438\u0441\u043a\u043b\u0435\u0439\u043c\u0435\u0440<\/h2>\n<p>  <\/p>\n<p>\u041f\u0435\u0440\u0435\u0434 \u043d\u0430\u0447\u0430\u043b\u043e\u043c \u0445\u043e\u0447\u0443 \u043f\u043e\u0437\u0432\u043e\u043b\u0438\u0442\u044c \u0441\u0435\u0431\u0435 \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u043e\u0439, \u043d\u043e \u0432\u0430\u0436\u043d\u044b\u0439 \u0434\u0438\u0441\u043a\u043b\u0435\u0439\u043c\u0435\u0440.<\/p>\n<p>  <\/p>\n<p><em>\u042f \u043d\u0435 \u0441\u0442\u0430\u0440\u0430\u044e\u0441\u044c \u0432\u0430\u043c \u043f\u0440\u043e\u0434\u0430\u0442\u044c \u044d\u0442\u043e\u0442 c\u043f\u043e\u0441\u043e\u0431 \u043a\u0430\u043a \u043f\u0430\u043d\u0430\u0446\u0435\u044e<\/em>.<br \/>  \u042f \u043b\u0438\u0448\u044c \u0445\u043e\u0447\u0443 \u0440\u0430\u0441\u0441\u043a\u0430\u0437\u0430\u0442\u044c \u0432\u0430\u043c \u0435\u0449\u0451 \u043e\u0434\u0438\u043d \u0441\u043f\u043e\u0441\u043e\u0431 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0435 \u0438 \u043f\u043e\u043a\u0430\u0437\u0430\u0442\u044c, \u043a\u0430\u043a \u0435\u0433\u043e \u043c\u043e\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c, \u043d\u0430 \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u043e\u043c \u043f\u0440\u0438\u043c\u0435\u0440\u0435.<br \/>  \u041a\u0430\u043a \u0438 \u0432\u0441\u0435 \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u044b\u0435 \u043f\u043e\u0434\u0445\u043e\u0434\u044b, \u044d\u0442\u043e\u0442 \u0438\u043c\u0435\u0435\u0442 \u0441\u0432\u043e\u0438 \u043d\u0435\u0434\u043e\u0441\u0442\u0430\u0442\u043a\u0438. \u0418 \u043a\u043e\u0435-\u0433\u0434\u0435 \u043f\u0440\u0438\u0434\u0451\u0442\u0441\u044f \u043f\u0440\u0438\u0441\u0435\u0434\u0430\u0442\u044c. \u0421 \u044d\u0442\u0438\u043c\u0438 \u043f\u0440\u0438\u0441\u0435\u0434\u0430\u043d\u0438\u044f\u043c\u0438 \u043c\u044b \u0432\u0441\u0442\u0440\u0435\u0442\u0438\u043c\u0441\u044f \u0434\u043e\u0432\u043e\u043b\u044c\u043d\u043e \u0441\u043a\u043e\u0440\u043e. <\/p>\n<p>  <\/p>\n<blockquote><p><code>\u00ab\u041d\u0435 \u0434\u0443\u043c\u0430\u0439\u0442\u0435, \u0447\u0442\u043e \u044f \u0441\u0435\u0439\u0447\u0430\u0441 \u0431\u0443\u0434\u0443 \u0440\u0430\u0437\u0432\u0438\u0432\u0430\u0442\u044c \u044d\u0442\u0443 \u043a\u043e\u043d\u0446\u0435\u043f\u0446\u0438\u044e, \u0430 \u0437\u0430\u0442\u0435\u043c \u0440\u0430\u0437\u043e\u0447\u0430\u0440\u0443\u044e\u0441\u044c \u0432 \u043d\u0435\u0439. \u0422\u0430\u043a\u043e\u0439 \u0434\u0440\u0430\u043c\u0430\u0442\u0443\u0440\u0433\u0438\u0438 \u043d\u0435 \u0431\u0443\u0434\u0435\u0442. \u042f \u0438\u0437\u043d\u0430\u0447\u0430\u043b\u044c\u043d\u043e \u0443\u0436\u0435 \u0432 \u043d\u0435\u0439 \u0440\u0430\u0437\u043e\u0447\u0430\u0440\u043e\u0432\u0430\u043d.\u00bb<\/code><br \/>  <em>\u0420\u043e\u043c\u0430\u043d \u041c\u0438\u0445\u0430\u0439\u043b\u043e\u0432<\/em> <\/p><\/blockquote>\n<p>\u0415\u0449\u0451 \u0445\u043e\u0447\u0435\u0442\u0441\u044f \u0437\u0430\u043c\u0435\u0442\u0438\u0442\u044c, \u0447\u0442\u043e \u0434\u0430\u043b\u0435\u0435 \u0432\u0441\u0435 \u043f\u0440\u0438\u043c\u0435\u0440\u044b \u043a\u043e\u0434\u0430 \u0431\u0443\u0434\u0443\u0442 \u043f\u0440\u0438\u0432\u043e\u0434\u0438\u0442\u044c\u0441\u044f \u043d\u0430 <code>Haskell<\/code>. \u041d\u043e \u0432 \u043a\u043e\u043d\u0446\u0435 \u044f \u043f\u043e\u043a\u0430\u0436\u0443, \u043a\u0430\u043a \u043c\u043e\u0436\u043d\u043e \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0438\u0437 \u043d\u0438\u0445 \u043f\u043e\u0432\u0442\u043e\u0440\u0438\u0442\u044c \u043d\u0430 <code>Scala<\/code>. <\/p>\n<p>  <\/p>\n<h2 id=\"chto-takoe-hkd\">\u0427\u0442\u043e \u0442\u0430\u043a\u043e\u0435 HKD<\/h2>\n<p>  <\/p>\n<p>\u041a\u043e\u043d\u0435\u0447\u043d\u043e, \u043f\u0440\u0435\u0436\u0434\u0435, \u0447\u0435\u043c \u043f\u0438\u0441\u0430\u0442\u044c \u044d\u0442\u043e\u0442 \u0440\u0430\u0437\u0434\u0435\u043b, \u044f \u043f\u043e\u043b\u0435\u0437 \u0432 \u0438\u043d\u0442\u0435\u0440\u043d\u0435\u0442, \u0447\u0442\u043e\u0431\u044b \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0435\u0442\u044c, \u043a\u0430\u043a \u044d\u0442\u043e\u0442 \u0442\u0435\u0440\u043c\u0438\u043d \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u044e\u0442 \u0434\u0440\u0443\u0433\u0438\u0435 \u043b\u044e\u0434\u0438. \u0427\u0451\u0442\u043a\u043e\u0433\u043e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u044f \u043d\u0435 \u043d\u0430\u0448\u0451\u043b.<br \/>  \u0413\u0440\u0443\u0431\u043e \u0433\u043e\u0432\u043e\u0440\u044f, HKD \u2014 \u044d\u0442\u043e \u0442\u043e, \u0447\u0442\u043e \u043f\u0440\u0435\u0434\u043e\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u0434\u0435\u0440\u0436\u0430\u0442\u044c \u0432 \u043e\u0434\u043d\u043e\u043c \u0442\u0438\u043f\u0435 \u0434\u0430\u043d\u043d\u044b\u0445 \u0441\u0440\u0430\u0437\u0443 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u0438\u0439. \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u043d\u0430 \u043f\u0440\u0438\u043c\u0435\u0440\u044b.<\/p>\n<p><a name=\"habracut\"><\/a>  <\/p>\n<h2 id=\"prosteyshie-hkd\">\u041f\u0440\u043e\u0441\u0442\u0435\u0439\u0448\u0438\u0435 HKD<\/h2>\n<p>  <\/p>\n<p>\u041e\u0431\u044b\u0447\u043d\u043e \u0434\u0430\u043d\u043d\u044b\u0435 \u0432 Haskell \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u044e\u0442\u0441\u044f \u0442\u0430\u043a:<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">data User = User   { login :: String   , email :: String }  -- >>> :t User -- User :: String -> String -> User<\/code><\/pre>\n<p>  <\/p>\n<p>\u041d\u043e \u0447\u0442\u043e, \u0435\u0441\u043b\u0438 \u043c\u044b \u0445\u043e\u0442\u0438\u043c \u0434\u043e\u0431\u0430\u0432\u0438\u0442\u044c \u043a\u0430\u043a\u043e\u0439-\u0442\u043e \u044d\u0444\u0444\u0435\u043a\u0442 \u043d\u0430\u0448\u0438\u043c \u043f\u043e\u043b\u044f\u043c? \u0422\u043e\u0433\u0434\u0430 \u043c\u043e\u0436\u043d\u043e \u043f\u043e\u043f\u0440\u043e\u0431\u043e\u0432\u0430\u0442\u044c \u043e\u0431\u0435\u0440\u043d\u0443\u0442\u044c \u043f\u043e\u043b\u044f \u0432 \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440 \u0442\u0438\u043f\u0430. \u041c\u044b \u043c\u043e\u0436\u0435\u043c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0438\u0437\u043e\u0432\u0430\u0442\u044c <code>User<\/code> \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440\u043e\u043c \u0442\u0438\u043f\u0430 <code>Maybe<\/code>. \u041f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u0438\u0442\u044c, \u0434\u043b\u044f \u0447\u0435\u0433\u043e \u0431\u044b \u044d\u0442\u043e \u043c\u043e\u0433\u043b\u043e \u0431\u044b\u0442\u044c \u043f\u043e\u043b\u0435\u0437\u043d\u043e, \u043d\u0435\u0441\u043b\u043e\u0436\u043d\u043e. \u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430-\u043f\u0430\u0442\u0447. \u041c\u044b \u043c\u043e\u0436\u0435\u043c \u0432\u043e\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u0435\u0439, \u0447\u0442\u043e\u0431\u044b \u043e\u0431\u043d\u043e\u0432\u0438\u0442\u044c \u0442\u043e\u043b\u044c\u043a\u043e \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043f\u043e\u043b\u044f \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b.<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">data User m = User   { login :: m String   , email :: m String }  -- >>> :t User -- User :: forall {m :: * -> *}. m String -> m String -> User m  -- >>> :t User @Maybe -- User @Maybe :: Maybe String -> Maybe String -> User Maybe  -- >>> :t User @Identity  -- User @Identity :: Identity String -> Identity String -> User Identity<\/code><\/pre>\n<p>  <\/p>\n<p>\u0418 \u0432\u043e\u0442 \u043c\u044b \u043f\u043e\u043b\u0443\u0447\u0438\u043b\u0438 \u043f\u043e\u043b\u043d\u043e\u0446\u0435\u043d\u043d\u044b\u0439 <code>HKD<\/code>. \u041d\u043e \u043c\u044b \u043c\u043e\u0436\u0435\u043c \u043d\u0430\u0447\u0430\u0442\u044c \u0435\u0433\u043e \u0443\u043b\u0443\u0447\u0448\u0430\u0442\u044c! \u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0435\u0441\u043b\u0438 \u043f\u043e\u043d\u0430\u0434\u043e\u0431\u0438\u0442\u0441\u044f \u0438\u0437\u0431\u0430\u0432\u0438\u0442\u044c\u0441\u044f \u043e\u0442 \u043a\u0430\u043a\u0438\u0445-\u043b\u0438\u0431\u043e \u044d\u0444\u0444\u0435\u043a\u0442\u043e\u0432, \u043c\u044b \u0432\u044b\u043d\u0443\u0436\u0434\u0435\u043d\u044b \u0431\u0443\u0434\u0435\u043c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c <code>Identity<\/code>, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043d\u0435 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043f\u0440\u043e\u0437\u0440\u0430\u0447\u043d\u044b\u043c, \u0447\u0442\u043e \u0437\u0430\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 \u043d\u0430\u0441 \u0440\u0430\u0441\u043f\u0430\u043a\u043e\u0432\u044b\u0432\u0430\u0442\u044c \u0438 \u0437\u0430\u043f\u0430\u043a\u043e\u0432\u044b\u0432\u0430\u0442\u044c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f. \u0415\u0441\u0442\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e, \u0432\u043e \u0432\u0440\u0435\u043c\u044f \u0438\u0441\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u044d\u0442\u043e\u0439 \u043e\u0431\u0451\u0440\u0442\u043a\u0438 \u043d\u0435 \u0431\u0443\u0434\u0435\u0442, \u043d\u043e \u044d\u0442\u043e \u0434\u0435\u043b\u0430\u0435\u0442 \u043a\u043e\u0434 \u0431\u043e\u043b\u0435\u0435 \u043c\u043d\u043e\u0433\u043e\u0441\u043b\u043e\u0432\u043d\u044b\u043c.<\/p>\n<p>  <\/p>\n<p>\u041a\u0441\u0442\u0430\u0442\u0438, \u0442\u043e\u0442 \u0437\u043d\u0430\u043a \u0441\u043e\u0431\u0430\u0447\u043a\u0438\/\u0443\u043b\u0438\u0442\u043a\u0438 \u0432 \u043b\u0438\u0441\u0442\u0438\u043d\u0433\u0435 \u2014 \u0441\u043f\u0435\u0446\u0438\u0430\u043b\u044c\u043d\u044b\u0439 \u0441\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0441 \u0434\u043b\u044f <a href=\"https:\/\/gitlab.haskell.org\/ghc\/ghc\/-\/wikis\/type-application\" rel=\"nofollow noopener noreferrer\"><code>Type Applications<\/code><\/a>.<\/p>\n<p>  <\/p>\n<h3 id=\"uskorennyy-kurs-po-typeapplications\">\u0423\u0441\u043a\u043e\u0440\u0435\u043d\u043d\u044b\u0439 \u043a\u0443\u0440\u0441 \u043f\u043e TypeApplications<\/h3>\n<p>  <\/p>\n<pre><code class=\"haskell\">> :set -XTypeApplications  > :set -fprint-explicit-foralls   > :t fmap fmap   :: forall {f :: * -> *} {a} {b}.      Functor f =>      (a -> b) -> f a -> f b  > :t fmap @Maybe fmap @Maybe :: forall {a} {b}. (a -> b) -> Maybe a -> Maybe b  > :t fmap @Maybe @Int fmap @Maybe @Int :: forall {b}. (Int -> b) -> Maybe Int -> Maybe b  > :t fmap @_ @Int fmap @_ @Int   :: forall {_ :: * -> *} {b}.      Functor _ =>      (Int -> b) -> _ Int -> _ b<\/code><\/pre>\n<p>  <\/p>\n<h2 id=\"uslozhnyaem-typefamily-pryachem-identity\">\u0423\u0441\u043b\u043e\u0436\u043d\u044f\u0435\u043c: TypeFamily. \u041f\u0440\u044f\u0447\u0435\u043c Identity<\/h2>\n<p>  <\/p>\n<p>\u0418\u0437\u0431\u0430\u0432\u0438\u0442\u044c\u0441\u044f \u043e\u0442 \u043d\u0435\u0434\u043e\u0440\u0430\u0437\u0443\u043c\u0435\u043d\u0438\u044f \u0441 Identity \u043d\u0430\u043c \u043f\u043e\u043c\u043e\u0433\u0443\u0442 <a href=\"https:\/\/wiki.haskell.org\/GHC\/Type_families\" rel=\"nofollow noopener noreferrer\"><code>Type Families<\/code><\/a>. <\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">type family WithEffect m a where   WithEffect Identity a = a   WithEffect m        a = m a  data User m = User   { login :: WithEffect m String   , email :: WithEffect m String }  -- >>> :t User @Identity  -- User @Identity :: String -> String -> User Identity  -- >>> :t User @Maybe  ---User @Maybe :: Maybe String -> Maybe String -> User Maybe  type UserCreate = User Identity type UserUpdate = User Maybe<\/code><\/pre>\n<p>  <\/p>\n<p>\u0422\u0435\u043f\u0435\u0440\u044c \u043f\u0435\u0440\u0435\u0433\u0440\u0443\u0437\u043a\u0430 <code>User<\/code> \u0441\u0442\u0430\u043b\u0430 \u0434\u043b\u044f \u043d\u0430\u0441 \u0431\u0435\u0441\u043f\u043b\u0430\u0442\u043d\u043e\u0439.<\/p>\n<p>  <\/p>\n<h2 id=\"uslozhnyaem-kastomnye-effekty-konkretiziruem-smysl\">\u0423\u0441\u043b\u043e\u0436\u043d\u044f\u0435\u043c: \u043a\u0430\u0441\u0442\u043e\u043c\u043d\u044b\u0435 \u044d\u0444\u0444\u0435\u043a\u0442\u044b. \u041a\u043e\u043d\u043a\u0440\u0435\u0442\u0438\u0437\u0438\u0440\u0443\u0435\u043c \u0441\u043c\u044b\u0441\u043b<\/h2>\n<p>  <\/p>\n<p><code>Maybe<\/code>, <code>Either<\/code>, <code>[]<\/code> \u2014 \u044d\u0442\u043e \u0432\u0441\u0451 \u043e\u0447\u0435\u043d\u044c \u0445\u043e\u0440\u043e\u0448\u043e. \u041d\u043e \u043d\u0443\u0436\u043d\u0430 \u0431\u043e\u043b\u0435\u0435 \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u0430\u044f, \u043f\u0440\u0438\u0432\u044f\u0437\u0430\u043d\u043d\u0430\u044f \u043a \u0434\u043e\u043c\u0435\u043d\u043d\u043e\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438, \u0441\u0435\u043c\u0430\u043d\u0442\u0438\u043a\u0430. \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u0441\u043e\u0437\u0434\u0430\u0434\u0438\u043c \u0441\u0432\u043e\u0438 \u044d\u0444\u0444\u0435\u043a\u0442\u044b.<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">data Create data Update   type family OnAction action a where   OnAction Create a = a   OnAction Update a = Maybe a  data User a = User   { login :: OnAction a String   , email :: OnAction a String }  -- >>> :t User @Create -- User @Create :: String -> String -> User Create  -- >>> :t User @Update -- User @Update :: Maybe String -> Maybe String -> User Update<\/code><\/pre>\n<p>  <\/p>\n<p>\u041c\u044b \u0434\u0430\u043b\u0438 \u043d\u0430\u0448\u0438\u043c \u044d\u0444\u0444\u0435\u043a\u0442\u0430\u043c \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u044b\u0435 \u0438\u043c\u0435\u043d\u0430, \u0438, \u043a\u0430\u0436\u0435\u0442\u0441\u044f, \u0441\u0434\u0435\u043b\u0430\u043b\u0438 <code>User<\/code> \u0447\u0435\u043c-\u0442\u043e \u0431\u043e\u043b\u0435\u0435 \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u043c, \u0447\u0435\u043c \u043f\u0440\u043e\u0441\u0442\u043e \u043d\u0430\u0431\u043e\u0440 \u043f\u043e\u043b\u0435\u0439. \u041d\u0430\u0443\u0447\u0438\u043b\u0438 \u0435\u0433\u043e \u043f\u043e\u0434\u0441\u0442\u0430\u0440\u0430\u0438\u0432\u0430\u0442\u044c\u0441\u044f \u043f\u043e\u0434 \u043d\u0430\u0448\u0438 \u043d\u0443\u0436\u0434\u044b. \u0410 \u0435\u0449\u0451 \u043c\u044b \u043c\u043e\u0436\u0435\u043c \u043d\u0430\u0434\u0435\u043b\u0438\u0442\u044c \u0435\u0433\u043e \u0445\u0430\u0440\u0430\u043a\u0442\u0435\u0440\u043e\u043c.<\/p>\n<p>  <\/p>\n<h2 id=\"uslozhnyaem-bolshe-typefamilies-spisok-modifikatorov\">\u0423\u0441\u043b\u043e\u0436\u043d\u044f\u0435\u043c: \u0431\u043e\u043b\u044c\u0448\u0435 TypeFamilies. \u0421\u043f\u0438\u0441\u043e\u043a \u043c\u043e\u0434\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440\u043e\u0432<\/h2>\n<p>  <\/p>\n<p>\u0421 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0439 \u0438\u0442\u0435\u0440\u0430\u0446\u0438\u0438 \u043c\u044b \u0441\u043c\u043e\u0436\u0435\u043c \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0442\u044c \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u044b\u0435 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u044b\u043c \u0440\u0435\u043a\u043e\u0440\u0434\u0430\u043c. \u0412\u043e\u0442 \u0442\u0430\u043a:<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">data User a = User   { login :: Field a '[Immutable]    String -- \u041e\u0431\u0440\u0430\u0442\u0438\u0442\u0435 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435 \u043d\u0430 \u0441\u043f\u0438\u0441\u043e\u043a,   , email :: Field a '[]             String -- \u043c\u043e\u0436\u043d\u043e \u0438\u043c\u0435\u0442\u044c \u0431\u043e\u043b\u044c\u0448\u0435 \u043e\u0434\u043d\u043e\u0433\u043e \u043c\u043e\u0434\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440\u0430 \u043d\u0430 \u043e\u0434\u043d\u043e \u043f\u043e\u043b\u0435   , about :: Field a '[NotForSearch] String }<\/code><\/pre>\n<p>  <\/p>\n<p>\u0417\u0434\u0435\u0441\u044c \u0441\u043a\u0430\u0437\u0430\u043d\u043e, \u0447\u0442\u043e \u043f\u043e\u043b\u0435 <code>login<\/code> \u043d\u0435\u043b\u044c\u0437\u044f \u0438\u0437\u043c\u0435\u043d\u044f\u0442\u044c, \u0430 \u043f\u043e \u043f\u043e\u043b\u044e <code>about<\/code> \u0437\u0430\u043f\u0440\u0435\u0449\u0435\u043d\u043e \u0438\u0441\u043a\u0430\u0442\u044c. \u042f \u0442\u0430\u043a \u0445\u043e\u0447\u0443, \u0442\u0430\u043a\u0430\u044f \u0443 \u043c\u0435\u043d\u044f \u0431\u0438\u0437\u043d\u0435\u0441-\u043b\u043e\u0433\u0438\u043a\u0430. \u041c\u043e\u0436\u043d\u043e \u0441\u043a\u0430\u0437\u0430\u0442\u044c \u0438\u043d\u0430\u0447\u0435, \u0431\u043e\u043b\u0435\u0435 \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u043e: \u044d\u0442\u043e \u043e\u0437\u043d\u0430\u0447\u0430\u0435\u0442, \u0447\u0442\u043e <code>User @Update<\/code> \u043d\u0435 \u0436\u0434\u0451\u0442 \u043d\u0438\u0447\u0435\u0433\u043e \u0441\u043e\u0434\u0435\u0440\u0436\u0430\u0442\u0435\u043b\u044c\u043d\u043e\u0433\u043e \u0432 \u043f\u043e\u043b\u0435 <code>login<\/code> (\u0442\u043e\u043b\u044c\u043a\u043e <code>()<\/code>), \u0442\u0430\u043a \u0436\u0435 \u0432\u0435\u0434\u0451\u0442 \u0441\u0435\u0431\u044f \u0438 \u043f\u043e\u043b\u0435 <code>about<\/code> \u0432 <code>User @Filter<\/code> (\u0434\u043e \u0441\u0438\u0445 \u043f\u043e\u0440 \u043c\u044b \u043d\u0435 \u0432\u0432\u043e\u0434\u0438\u043b\u0438 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u044f <code>Filter<\/code>, \u043d\u043e \u043e\u043d \u043f\u043e\u044f\u0432\u0438\u0442\u0441\u044f \u0443\u0436\u0435 \u0432 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u043c \u0441\u043d\u0438\u043f\u043f\u0435\u0442\u0435). \u042d\u0442\u043e \u043f\u043e\u043c\u043e\u0436\u0435\u0442 \u043d\u0430\u043c \u043d\u0435 \u0441\u043e\u0432\u0435\u0440\u0448\u0438\u0442\u044c \u043e\u0448\u0438\u0431\u043a\u0443 \u0432 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0435 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u044f \u043a\u043e\u0434\u0430, \u0432\u0435\u0434\u044c \u043d\u0435 \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u0441\u044f \u0437\u0430\u043f\u0438\u0445\u043d\u0443\u0442\u044c <code>()<\/code> \u043d\u0430 \u043c\u0435\u0441\u0442\u043e \u0441\u0442\u0440\u043e\u043a\u0438. \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c, \u043a\u0430\u043a \u044d\u0442\u043e\u0433\u043e \u0434\u043e\u0431\u0438\u0442\u044c\u0441\u044f.<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">data Create  data Update  data Filter  -- | \u0410\u043d\u0430\u043b\u043e\u0433 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 `elem` \u043d\u0430 \u0443\u0440\u043e\u0432\u043d\u0435 \u0442\u0438\u043f\u043e\u0432 type family Contains a as where   Contains a (a ': as) = 'True    -- | \u0414\u043b\u044f \u043f\u043e\u0434\u043d\u044f\u0442\u0438\u044f \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440\u043e\u0432 \u0442\u0438\u043f\u0430 Bool \u043d\u0430 \u0443\u0440\u043e\u0432\u0435\u043d\u044c    -- \u0442\u0438\u043f\u043e\u0432 \u043f\u043e\u043d\u0430\u0434\u043e\u0431\u0438\u0442\u0441\u044f DataKinds   Contains b (a ': as) = Contains b as   Contains a '[]       = 'False  -- | \u0410\u043d\u0430\u043b\u043e\u0433 ifThenElse \u043d\u0430 \u0443\u0440\u043e\u0432\u043d\u0435 \u0442\u0438\u043f\u043e\u0432 type family If c t f where    If 'True  t f = t   If 'False t f = f  data Immutable data NotForSearch  type family Field action (modifiers :: [*]) a :: *  type instance Field Create constraints a = a   type instance Field Update constraints a =    --_\u0435\u0441\u043b\u0438_ (\u0441\u043f\u0438\u0441\u043e\u043a \u043c\u043e\u0434\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440\u043e\u0432 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 Immutable) _\u0442\u043e\u0433\u0434\u0430_ () _\u0438\u043d\u0430\u0447\u0435_ (Maybe a)     If     (Contains Immutable constraints)                  ()         (Maybe a)  type instance Field Filter constraints a =     If (Contains NotForSearch constraints) () [a]  data User a = User   { login :: Field a '[Immutable]    String   , email :: Field a '[]             String   , about :: Field a '[NotForSearch] String }  -- >>> :t User @Create -- User @Create :: String -> String -> String -> User Create  -- >>> :t User @Update -- User @Update :: () -> (Maybe String) -> (Maybe String) -> User Update  -- >>> :t User @Filter -- User @Filter :: [String] -> [String] -> () -> User Filter<\/code><\/pre>\n<p>  <\/p>\n<p>\u0412\u043e\u0442, \u0447\u0442\u043e \u044f \u043f\u043e\u0434\u0440\u0430\u0437\u0443\u043c\u0435\u0432\u0430\u043b, \u0433\u043e\u0432\u043e\u0440\u044f \u043e \u0445\u0430\u0440\u0430\u043a\u0442\u0435\u0440\u0435:<br \/>  \u0414\u043e \u0432\u043d\u0435\u0441\u0451\u043d\u043d\u044b\u0445 \u0432\u044b\u0448\u0435 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u0439 \u0432\u0441\u0435 \u043d\u0430\u0448\u0438 \u0441\u0443\u0449\u043d\u043e\u0441\u0442\u0438 (\u043f\u0443\u0441\u0442\u044c, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, <code>Comment<\/code> \u0438\u043b\u0438 <code>Article<\/code>) \u0432\u0435\u043b\u0438 \u0431\u044b \u0441\u0435\u0431\u044f \u043e\u0434\u0438\u043d\u0430\u043a\u043e\u0432\u043e: <\/p>\n<p>  <\/p>\n<blockquote><p><code>Create<\/code>? \u2014 \u041f\u043e\u0442\u0440\u0435\u0431\u043e\u0432\u0430\u0442\u044c \u0432\u0441\u0435 \u043f\u043e\u043b\u044f!<br \/>  <code>Update<\/code>? \u2014 \u041f\u043e\u0442\u0440\u0435\u0431\u043e\u0432\u0430\u0442\u044c \u0445\u043e\u0442\u044c \u0447\u0442\u043e-\u043d\u0438\u0431\u0443\u0434\u044c \ud83d\ude41<br \/>  <code>Filter<\/code>? \u2014 \u041f\u043e\u0442\u0440\u0435\u0431\u043e\u0432\u0430\u0442\u044c \u043d\u0430\u0431\u043e\u0440 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 \u0434\u043b\u044f \u043f\u043e\u0438\u0441\u043a\u0430.<\/p>\n<p>  \u041d\u043e \u0442\u0435\u043f\u0435\u0440\u044c \u043f\u043e\u043b\u044f \u043f\u043e\u043b\u0443\u0447\u0438\u043b\u0438 \u043c\u043e\u0434\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440\u044b, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 &#171;\u0430\u043a\u0442\u0438\u0432\u0438\u0440\u0443\u044e\u0442\u0441\u044f&#187; \u0432 \u0437\u0430\u0432\u0438\u0441\u0438\u043c\u043e\u0441\u0442\u0438 \u043e\u0442 \u0432\u044b\u0431\u0440\u0430\u043d\u043d\u043e\u0433\u043e <em>\u0434\u0435\u0439\u0441\u0442\u0432\u0438\u044f<\/em>. \u0421\u0432\u043e\u0439\u0441\u0442\u0432\u0430, \u0434\u0435\u043b\u0430\u044e\u0449\u0438\u0435 \u0438\u0437 \u043f\u0430\u0447\u043a\u0438 \u0440\u0435\u043a\u043e\u0440\u0434\u043e\u0432 \u0434\u0430\u043d\u043d\u044b\u0435, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0441\u043f\u0435\u0446\u0438\u0444\u0438\u0447\u043d\u044b \u0434\u043b\u044f \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u0439 \u0434\u043e\u043c\u0435\u043d\u043d\u043e\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438.<\/p><\/blockquote>\n<p>\u0427\u0442\u043e \u0435\u0449\u0451 \u043c\u043e\u0436\u043d\u043e \u0438\u0437\u043e\u0431\u0440\u0430\u0437\u0438\u0442\u044c, \u0434\u0432\u0438\u0433\u0430\u044f\u0441\u044c \u0432 \u044d\u0442\u0443 \u0441\u0442\u043e\u0440\u043e\u043d\u0443?<\/p>\n<p>  <\/p>\n<h2 id=\"uslozhnyaem-datakinds\">\u0423\u0441\u043b\u043e\u0436\u043d\u044f\u0435\u043c: DataKinds<\/h2>\n<p>  <\/p>\n<p>\u0414\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e\u0431\u044b \u0441\u043e\u0445\u0440\u0430\u043d\u0438\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0435, \u0432\u0435\u0440\u043e\u044f\u0442\u043d\u043e \u043d\u0430\u043c \u043f\u043e\u043d\u0430\u0434\u043e\u0431\u044f\u0442\u0441\u044f \u0438\u043c\u0435\u043d\u0430 \u0438\u0445 \u043f\u043e\u043b\u0435\u0439. \u0410 \u0447\u0435\u0433\u043e \u0442\u043e\u0447\u043d\u043e \u043d\u0435 \u0445\u043e\u0447\u0435\u0442\u0441\u044f \u0434\u0435\u043b\u0430\u0442\u044c, \u0442\u0430\u043a \u044d\u0442\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0433\u043e\u043b\u044b\u0435 \u0441\u0442\u0440\u043e\u043a\u0438. \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u0437\u0430\u0448\u044c\u0451\u043c \u0438\u043c\u0435\u043d\u0430 \u0442\u0430\u043c \u0436\u0435, \u0432 \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0438 \u043c\u043e\u0434\u0435\u043b\u0438.<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">-- \/ Symbol -- \u043f\u043e\u0434\u043d\u044f\u0442\u044b\u0435 \u043d\u0430 \u0443\u0440\u043e\u0432\u0435\u043d\u044c \u0442\u0438\u043f\u043e\u0432 \u043b\u0438\u0442\u0435\u0440\u0430\u043b\u044b \u0441\u0442\u0440\u043e\u043a. data Named (a :: Symbol)  data Schema  type family Field (named :: Symbol) action (modifiers :: [*]) a :: *  type instance Field name Schema constraints a = Named name  data User a = User   { login :: Field \"login\" a '[Immutable]    String   , email :: Field \"email\" a '[]             String   , about :: Field \"about\" a '[NotForSearch] String }  nameOf :: forall e n a. KnownSymbol n => (e Schema -> Named n) -> Text  nameOf _ = pack $ symbolVal (Proxy @n)  -- >>> nameOf login -- \"login\" -- >>> nameOf about -- \"about\" -- >>> nameOf email -- \"email\"<\/code><\/pre>\n<p>  <\/p>\n<p>\u0414\u043b\u044f \u0442\u043e\u0433\u043e \u0447\u0442\u043e\u0431\u044b \u0434\u043e\u0441\u0442\u0430\u0442\u044c \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435 \u043f\u043e\u043b\u044f, \u043f\u0440\u043e\u0441\u0442\u043e \u043f\u0435\u0440\u0435\u0434\u0430\u0434\u0438\u043c \u0432 \u0444\u0443\u043d\u043a\u0446\u0438\u044e <code>nameOf<\/code> \u0440\u0435\u043a\u043e\u0440\u0434 \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b. \u0422\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c: <\/p>\n<p>  <\/p>\n<ol>\n<li>\u043d\u0435\u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e \u043e\u0448\u0438\u0431\u0438\u0442\u044c\u0441\u044f \u0432 \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0438, \u043e\u0447\u0435\u0440\u0435\u0434\u043d\u043e\u0439 \u0440\u0430\u0437 \u0432\u0431\u0438\u0432\u0430\u044f \u0433\u043e\u043b\u044b\u0439 \u043b\u0438\u0442\u0435\u0440\u0430\u043b<\/li>\n<li>\u043d\u0435\u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e \u043e\u0431\u0440\u0430\u0442\u0438\u0442\u044c\u0441\u044f \u043a \u043f\u043e\u043b\u044e, \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u043d\u0435\u0442 <\/li>\n<\/ol>\n<p>  <\/p>\n<p><em>\u0412\u0435\u0440\u043e\u044f\u0442\u043d\u043e \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e \u0434\u0430\u0436\u0435 \u043a\u0430\u043a-\u0442\u043e \u043f\u0440\u043e\u0442\u0430\u0449\u0438\u0442\u044c \u0442\u0438\u043f \u0441\u0430\u043c\u043e\u0433\u043e \u043f\u043e\u043b\u044f \u0432 \u0442\u0438\u043f <code>Named<\/code>, \u0447\u0442\u043e\u0431\u044b \u0441\u043b\u0443\u0447\u0430\u0439\u043d\u043e \u043d\u0435 \u043f\u0435\u0440\u0435\u043f\u0443\u0442\u0430\u0442\u044c \u0440\u0435\u043a\u043e\u0440\u0434\u044b. \u041d\u043e \u044f \u043d\u0435 \u043d\u0430\u0448\u0451\u043b \u0443\u0434\u043e\u0431\u043d\u043e\u0433\u043e \u0441\u043f\u043e\u0441\u043e\u0431\u0430 \u044d\u0442\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c. \u0414\u043b\u044f \u043b\u044e\u0431\u0438\u0442\u0435\u043b\u0435\u0439 \u043f\u043e\u043a\u043e\u0432\u044b\u0440\u044f\u0442\u044c Haskell \u044d\u0442\u043e \u043c\u043e\u0436\u0435\u0442 \u0441\u0442\u0430\u0442\u044c \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e\u0439 \u0437\u0430\u0434\u0430\u0447\u043a\u043e\u0439.<\/em><\/p>\n<p>  <\/p>\n<h2 id=\"uslozhnyaem-eschyo-bolshe-typefamilies-opcionalnye-polya\">\u0423\u0441\u043b\u043e\u0436\u043d\u044f\u0435\u043c: \u0435\u0449\u0451 \u0431\u043e\u043b\u044c\u0448\u0435 TypeFamilies. \u041e\u043f\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u044b\u0435 \u043f\u043e\u043b\u044f<\/h2>\n<p>  <\/p>\n<p>\u0412 \u0444\u043e\u0440\u043c\u0430\u0442\u0435 \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u044f \u0434\u0430\u043d\u043d\u044b\u0445 \u0443\u0436\u0435 \u0434\u043e\u0432\u043e\u043b\u044c\u043d\u043e \u043c\u043d\u043e\u0433\u043e \u0432\u0441\u0435\u0433\u043e, \u043d\u043e \u0438\u0445 \u0432\u0441\u0451 \u0435\u0449\u0451 \u043d\u0435\u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e. \u041c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u0443 \u043a\u043e\u0433\u043e-\u0442\u043e \u0438\u0437 \u0432\u0430\u0441 \u0434\u0430\u0436\u0435 \u0432\u043e\u0437\u043d\u0438\u043a\u043b\u0438 \u0432\u043e\u043f\u0440\u043e\u0441\u044b \u043a \u0441\u043f\u043e\u0441\u043e\u0431\u0443 \u0444\u0438\u043b\u044c\u0442\u0440\u0430\u0446\u0438\u0438. \u041d\u0435\u0443\u0436\u0435\u043b\u0438 \u0441\u043f\u0438\u0441\u043a\u0430 \u043c\u043e\u0436\u0435\u0442 \u0445\u0432\u0430\u0442\u0438\u0442\u044c \u0434\u043b\u044f \u043f\u043e\u043b\u043d\u043e\u0446\u0435\u043d\u043d\u043e\u0439 \u0444\u0438\u043b\u044c\u0442\u0440\u0430\u0446\u0438\u0438? \u0418\u043b\u0438 \u0447\u0442\u043e \u0434\u0435\u043b\u0430\u0442\u044c \u0441 \u043e\u043f\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u044b\u043c\u0438 \u043f\u043e\u043b\u044f\u043c\u0438? \u041f\u0440\u043e\u0441\u0442\u043e \u043e\u0431\u043e\u0440\u0430\u0447\u0438\u0432\u0430\u0442\u044c \u0432 <code>Maybe<\/code>? \u041c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c. \u041d\u043e \u043c\u044b \u0441\u0434\u0435\u043b\u0430\u0435\u043c \u0438\u043d\u0430\u0447\u0435.<br \/>  <em>\u042f \u043e\u0442\u0434\u0430\u044e \u0441\u0435\u0431\u0435 \u043e\u0442\u0447\u0451\u0442, \u0447\u0442\u043e \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0438\u0437 \u0432\u0430\u0441 \u043c\u043e\u0433\u0443\u0442 \u0441\u0447\u0435\u0441\u0442\u044c \u044d\u0442\u043e \u043a\u043e\u0441\u0442\u044b\u043b\u0451\u043c (\u0445\u043e\u0442\u044f \u043e\u043f\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0441\u0442\u044c \u043f\u043e\u043b\u044f \u0432\u044b\u0433\u043b\u044f\u0434\u0438\u0442 \u0434\u043e\u0432\u043e\u043b\u044c\u043d\u043e \u0431\u0430\u0437\u043e\u0432\u044b\u043c \u043f\u043e\u043d\u044f\u0442\u0438\u0435\u043c, \u0434\u043e\u0441\u0442\u043e\u0439\u043d\u044b\u043c \u0435\u0433\u043e \u0443\u043f\u043e\u043c\u0438\u043d\u0430\u043d\u0438\u0438 \u0432 \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0438 \u0441\u0443\u0449\u043d\u043e\u0441\u0442\u0438). \u0412 \u043a\u043e\u043d\u0446\u0435 \u043a\u043e\u043d\u0446\u043e\u0432, \u044f \u043f\u0440\u0435\u0434\u0443\u043f\u0440\u0435\u0436\u0434\u0430\u043b. \u0447\u0442\u043e \u043e\u043d\u0438 \u0442\u043e\u0447\u043d\u043e \u0431\u0443\u0434\u0443\u0442<\/em>.<\/p>\n<p>  <\/p>\n<p>\u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u043f\u043e \u043f\u043e\u0440\u044f\u0434\u043a\u0443. <\/p>\n<p>  <\/p>\n<p>\u041e\u043f\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0441\u0442\u044c.<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">data Required = Required | Optional  type family ApplyRequired (req :: Required) m a where    ApplyRequired 'Required m a = a   -- | \u041f\u043e\u0437\u0432\u043e\u043b\u0438\u043c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0440\u0430\u0437\u043d\u044b\u0435 \u044d\u0444\u0444\u0435\u043a\u0442\u044b \u0434\u043b\u044f \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u043e\u043f\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0441\u0442\u0438.   -- \u0412\u0441\u043a\u043e\u0440\u043e\u0441\u0442\u0438 \u0441\u0442\u0430\u043d\u0435\u0442 \u044f\u0441\u043d\u043e, \u0437\u0430\u0447\u0435\u043c \u044d\u0442\u043e \u0431\u044b\u043b\u043e \u0441\u0434\u0435\u043b\u0430\u043d\u043e.   ApplyRequired 'Optional m a = m a  -- \/ \u0422\u0430\u043a \u0442\u0435\u043f\u0435\u0440\u044c \u0432\u044b\u0433\u043b\u044f\u0434\u0438\u0442 Field type family Field (name :: Symbol) (req :: Required) action (modifiers :: [*]) a :: *  type instance Field name req Create modifiers a =      ApplyRequired req Maybe a  type instance Field name req Update modifiers a =  -- \/ \u041d\u0435\u0432\u0430\u0436\u043d\u043e, \u043e\u043f\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e \u043f\u043e\u043b\u0435 \u0438\u043b\u0438 \u043d\u0435\u0442 -- \u0438\u0437\u043c\u0435\u043d\u044f\u0442\u044c \u043c\u044b \u0435\u0433\u043e \u043d\u0435 \u043c\u043e\u0436\u0435\u043c   If (Contains Immutable modifiers) ()     (Maybe (ApplyRequired req Maybe a))   data User a = User   { login :: Field 'Required \"login\" a '[Immutable]    String   , email :: Field 'Optional \"email\" a '[]             String   , about :: Field 'Optional \"about\" a '[NotForSearch] String }  -- >>> :t User @Create -- User @Create :: [Char] -> Maybe String -> Maybe String -> User Create -- \/ \u041c\u043e\u0436\u0435\u043c \u043d\u0435 \u0437\u0430\u043f\u043e\u043b\u043d\u044f\u0442\u044c \u043e\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u044b\u0435 \u043f\u043e\u043b\u044f  -- >>> :t User @Update -- User @Update :: () -> Maybe (Maybe String) -> Maybe (Maybe String) -> User Update -- \/ \u041c\u043e\u0436\u0435\u043c \u043e\u0431\u043d\u043e\u0432\u0438\u0442\u044c \u043e\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0435 \u043f\u043e\u043b\u0435, \u043c\u043e\u0436\u0435\u043c \u0435\u0433\u043e \u0441\u0442\u0435\u0440\u0435\u0442\u044c -- | \u0423 \u0432\u0430\u0441 \u043c\u043e\u0433\u0443\u0442 \u0432\u043e\u0437\u043d\u0438\u043a\u043d\u0443\u0442\u044c \u0432\u043e\u043f\u0440\u043e\u0441\u044b \u0441 Maybe (Maybe a). -- | \u0412\u043d\u0435\u0448\u043d\u0438\u0439 \u0438 \u0432\u043d\u0443\u0442\u0440\u0435\u043d\u043d\u0438\u0439 Maybe \u0438\u043c\u0435\u044e\u0442 \u0440\u0430\u0437\u043d\u044b\u0439 \u0441\u043c\u044b\u0441\u043b: -- \/ * \u0432\u043d\u0435\u0448\u0438\u0439 -- \u043e\u0431\u043d\u043e\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043b\u0438 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0435 -- \/ * \u0432\u043d\u0443\u0442\u0440\u0435\u043d\u043d\u0438\u0439 -- \u0437\u0430\u0442\u0438\u0440\u0430\u0435\u043c \u0438\u043b\u0438 \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435   -- >>> :t User @Filter -- User @Filter :: [String] -> Maybe [String] -> () -> User Filter -- \/ \u041c\u043e\u0436\u0435\u043c \u0444\u0438\u043b\u044c\u0442\u0440\u043e\u0432\u0430\u0442\u044c \u043f\u043e \u043d\u0430\u0431\u043e\u0440\u0443 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 \u0438\u043b\u0438 \u043f\u043e \u043e\u0442\u0441\u0443\u0442\u0441\u0432\u0438\u044e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f  -- >>> :t User @Schema -- User @Schema :: Named \"login\" -> Named \"email\" -> Named \"about\" -> User Schema -- \/ \u0421\u0445\u0435\u043c\u0430 \u043d\u0435 \u0438\u0437\u043c\u0435\u043d\u0438\u043b\u0430\u0441\u044c<\/code><\/pre>\n<p>  <\/p>\n<p>\u0424\u0438\u043b\u044c\u0442\u0440\u0430\u0446\u0438\u044f:<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">data Filter -- \/ \u041d\u043e\u0432\u043e\u0435 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0435  data CustomFilter a -- \/ `a` -- \u043d\u0435\u043f\u043e\u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0444\u0438\u043b\u044c\u0442\u0440  data ItSelf -- \/ \u0417\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043c\u043e\u0436\u0435\u0442 \u0432\u044b\u0441\u0442\u0443\u043f\u0430\u0442\u044c \u0444\u0438\u043b\u044c\u0442\u0440\u043e\u043c \u0441\u0430\u043c\u043e\u0433\u043e \u0441\u0435\u0431\u044f.  -- \/ \u0421\u0443\u0449\u0435\u0441\u0442\u0432\u043e\u0432\u0430\u043d\u0438\u0435\/\u043e\u0442\u0441\u0443\u0442\u0441\u0432\u0438\u0435 \u043f\u043e\u043b\u044f data Exists a = Exists a | DoesNotExist  -- \/ \u041d\u0435\u0444\u0438\u043b\u044c\u0442\u0440\u0443\u0435\u043c\u043e\u0435 \u043f\u043e\u043b\u0435 newtype NotFiltered a = NotFiltered ()  type family ApplyFilter req qs a where   ApplyFilter req (CustomFilter q ': qs) a = Maybe (ApplyRequired req Exists (q a))   ApplyFilter req (nq ': qs)             a = ApplyFilter req qs a   ApplyFilter req '[]                    a = Maybe (ApplyRequired req Exists [a])    -- \/ \u041f\u0440\u0438\u043c\u0435\u0440\u044b \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u044d\u0442\u043e\u0433\u043e \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u044f \u0431\u0443\u0434\u0435\u0442 \u043f\u0440\u0435\u0434\u043e\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u043e \u0432 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u043c \u0440\u0430\u0437\u0434\u0435\u043b\u0435 type instance Field name req Filter modifiers a =    If (Contains (CustomFilter ItSelf) modifiers)        (Maybe (ApplyRequired req Exists a))        (ApplyFilter req modifiers a)<\/code><\/pre>\n<p>  <\/p>\n<p>\u0422\u0435\u043f\u0435\u0440\u044c \u0434\u043e\u043b\u0436\u043d\u0430 \u0431\u044b\u0442\u044c \u044f\u0441\u043d\u0430 \u043c\u043e\u0442\u0438\u0432\u0430\u0446\u0438\u044f \u043f\u0435\u0440\u0435\u0433\u0440\u0443\u0437\u043a\u0438 \u044d\u0444\u0444\u0435\u043a\u0442\u0430 \u0432 <code>ApplyRequired<\/code>, \u0430 \u0442\u0430\u043a \u0436\u0435 \u043f\u043e\u0447\u0435\u043c\u0443 \u044f \u043d\u0435 \u0441\u0442\u0430\u043b \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c <code>Maybe<\/code> \u043d\u0430 \u0441\u0430\u043c\u043e\u043c \u0442\u0438\u043f\u0435 \u043f\u043e\u043b\u044f:<br \/>  \u0415\u0441\u043b\u0438 \u043f\u043e\u043b\u0435 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043e\u043f\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u044b\u043c, \u0442\u043e \u043c\u044b \u0434\u043e\u043b\u0436\u043d\u044b \u0443\u043c\u0435\u0442\u044c \u0444\u0438\u043b\u044c\u0442\u0440\u043e\u0432\u0430\u0442\u044c \u043d\u0435 \u0442\u043e\u043b\u044c\u043a\u043e \u043f\u043e \u043d\u0430\u0431\u043e\u0440\u0443 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 \u043a\u0430\u043a \u0442\u0430\u043a\u043e\u0432\u044b\u0445, \u043d\u043e \u0438 \u043d\u0430 \u0444\u0430\u043a\u0442 \u043e\u0442\u0441\u0443\u0442\u0432\u0438\u044f\/\u0441\u0443\u0449\u0435\u0441\u0442\u0432\u043e\u0432\u0430\u043d\u0438\u044f \u0438\u0445 \u0432\u043e\u043e\u0431\u0449\u0435. \u041e\u0434\u043d\u0430\u043a\u043e \u0435\u0441\u043b\u0438 \u043f\u043e\u043b\u0435 \u043f\u043e\u043c\u0435\u0447\u0435\u043d\u043e \u043a\u0430\u043a <code>NotFiltered<\/code>, \u043d\u043e \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f <code>Optional<\/code>, \u043c\u044b \u0432\u0441\u0451 \u0435\u0449\u0451 \u0441\u043f\u043e\u0441\u043e\u0431\u043d\u044b \u0435\u0433\u043e \u0444\u0438\u043b\u044c\u0442\u0440\u043e\u0432\u0430\u0442\u044c, \u043d\u043e \u0442\u043e\u043b\u044c\u043a\u043e \u043d\u0430 \u043d\u0430\u043b\u0438\u0447\u0438\u0435 \u0435\u0433\u043e \u0432 \u0437\u0430\u043f\u0438\u0441\u0438. \u041c\u043e\u0436\u043d\u043e \u043b\u0438 \u044d\u0442\u043e \u0438\u0437\u043c\u0435\u043d\u0438\u0442\u044c? \u2014 \u0414\u0430. \u041d\u043e \u044f \u043d\u0435 \u0441\u0447\u0438\u0442\u0430\u044e, \u0447\u0442\u043e \u044d\u0442\u043e \u043f\u0440\u043e\u0431\u043b\u0435\u043c\u0430. \u041e\u0441\u0442\u0430\u0432\u043b\u044f\u044e \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u043e \u0442\u043e\u043c, \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043b\u0438 \u044d\u0442\u043e \u0432 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u0438 \u043f\u0440\u0438\u0441\u0435\u0434\u0430\u043d\u0438\u0435\u043c, \u043d\u0430 \u0432\u0430\u0441.<\/p>\n<p>  <\/p>\n<h2 id=\"a-v-realnosti\">\u0410 \u0432 \u0440\u0435\u0430\u043b\u044c\u043d\u043e\u0441\u0442\u0438?<\/h2>\n<p>  <\/p>\n<p>\u0422\u0435\u043f\u0435\u0440\u044c \u0434\u0430\u0432\u0430\u0439\u0442\u0435 \u0441\u043e\u0431\u0435\u0440\u0451\u043c \u0432 \u043a\u0443\u0447\u0443 \u0432\u0441\u0435 \u043d\u0430\u0448\u0438 \u043d\u0430\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u0438 \u0441\u043f\u0440\u043e\u0435\u043a\u0442\u0438\u0440\u0443\u0435\u043c \u043d\u0430\u0448\u0443 \u0434\u043e\u043c\u0435\u043d\u043a\u0443. \u0422\u0430\u043a \u043a\u0430\u043a \u0442\u0435\u043f\u0435\u0440\u044c \u043a\u043e\u0434\u0430 \u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u0441\u044f \u0440\u0435\u0430\u043b\u044c\u043d\u043e \u043c\u043d\u043e\u0433\u043e, \u044f \u0431\u0443\u0434\u0443 \u0434\u0430\u0432\u0430\u0442\u044c \u0441\u0441\u044b\u043b\u043a\u0438 \u043d\u0430 \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u044b\u0435 \u0444\u0430\u0439\u043b\u044b \u0432 \u0440\u0435\u043f\u043e\u0437\u0438\u0442\u043e\u0440\u0438\u0438. <\/p>\n<p>  <\/p>\n<p>\u041f\u0435\u0440\u0432\u043e\u0435, \u0447\u0442\u043e \u043d\u0443\u0436\u043d\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c, \u044d\u0442\u043e \u0440\u0430\u0437\u043d\u0435\u0441\u0442\u0438 \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u0435 \u0442\u0438\u043f\u044b \u043f\u043e \u0444\u0430\u0439\u043b\u0430\u043c, \u0442\u0430\u043a \u0431\u0443\u0434\u0435\u0442 \u0443\u0434\u043e\u0431\u043d\u0435\u0435. \u0420\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u043c\u043e\u0436\u043d\u043e \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0435\u0442\u044c <a href=\"https:\/\/github.com\/goosedb\/HKD-Example\/tree\/master\/src\/Base\" rel=\"nofollow noopener noreferrer\">\u0437\u0434\u0435\u0441\u044c<\/a>.<\/p>\n<p>  <\/p>\n<p>\u0410 \u0442\u0435\u043f\u0435\u0440\u044c \u043e\u0431\u044a\u044f\u0432\u0438\u043c \u0441\u0443\u0449\u043d\u043e\u0441\u0442\u0438 \u043d\u0430\u0448\u0435\u0439 \u0434\u043e\u043c\u0435\u043d\u043d\u043e\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u0438. \u0412 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u043f\u0440\u0438\u043c\u0435\u0440\u0430 \u0438 \u0434\u043e\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u044c\u0441\u0442\u0432\u0430, \u0447\u0442\u043e \u044d\u0442\u043e \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u043c\u043e\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c, \u044f \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u043b \u043f\u0440\u043e\u0441\u0442\u0435\u0439\u0448\u0438\u0439 <code>CRUD<\/code> \u0441 \u0442\u0440\u0435\u043c\u044f \u0441\u0443\u0449\u043d\u043e\u0441\u0442\u044f\u043c\u0438:<br \/>  <a href=\"https:\/\/github.com\/goosedb\/HKD-Example\/blob\/master\/src\/Entities\/User.hs\" rel=\"nofollow noopener noreferrer\"><code>User<\/code><\/a>:<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">data User a = User   { registered :: Field \"registered\" 'Required a '[Immutable, CustomFilter Range, NotAllowedFromFront] UTCTime   , modified   :: Field \"modified\"   'Optional a '[CustomFilter Range, NotAllowedFromFront]            UTCTime    , login      :: Field \"login\"      'Required a '[]                                                      Text   , email      :: Field \"email\"      'Optional a '[]                                                      Text   , about      :: Field \"about\"      'Optional a '[CustomFilter NotFiltered]                              Text }<\/code><\/pre>\n<p>  <\/p>\n<p>\u0417\u0434\u0435\u0441\u044c \u043f\u043e\u044f\u0432\u043b\u044f\u044e\u0442\u0441\u044f \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043d\u043e\u0432\u044b\u0445 \u0448\u0442\u0443\u043a: <code>Range<\/code> \u0438 <code>NotAllowedFromFront<\/code>.<br \/>  \u041d\u043e\u0432\u044b\u0435 \u0444\u0438\u043b\u044c\u0442\u0440\u044b \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u044b <a href=\"https:\/\/github.com\/goosedb\/HKD-Example\/blob\/master\/src\/Filters.hs\" rel=\"nofollow noopener noreferrer\">\u0437\u0434\u0435\u0441\u044c<\/a> \u0438 \u0432 \u043d\u0438\u0445 \u043d\u0435\u0442 \u043d\u0438\u0447\u0435\u0433\u043e \u043e\u0441\u043e\u0431\u0435\u043d\u043d\u043e\u0433\u043e. \u041d\u043e \u043e\u043d\u0438 \u0445\u043e\u0440\u043e\u0448\u043e \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0442 \u0441 \u0442\u0435\u043c, \u0447\u0442\u043e \u043e\u043f\u0438\u0441\u0430\u043d\u043e \u0432 \u0431\u0430\u0437\u043e\u0432\u043e\u043c \u043c\u043e\u0434\u0443\u043b\u0435.<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">newtype Regex a = Regex Text  data Range a = Range { from :: Maybe a, to :: Maybe a }<\/code><\/pre>\n<p>  <\/p>\n<p>\u0410 \u0435\u0449\u0451 \u044f \u0434\u043e\u0431\u0430\u0432\u0438\u043b \u043d\u043e\u0432\u044b\u0439 <code>action<\/code>, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043d\u0430\u0437\u044b\u0432\u0430\u0435\u0442\u0441\u044f <code>Front<\/code>. \u041e\u043d \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0451\u043d <a href=\"https:\/\/github.com\/goosedb\/HKD-Example\/blob\/master\/src\/Front.hs\" rel=\"nofollow noopener noreferrer\">\u0437\u0434\u0435\u0441\u044c<\/a> \u0438 \u043d\u0443\u0436\u0435\u043d \u0434\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e\u0431\u044b \u0437\u0430\u0434\u0430\u0442\u044c \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u043c \u043f\u043e\u043b\u044f\u043c \u043e\u0441\u043e\u0431\u0435\u043d\u043d\u043e\u0435 \u043f\u043e\u0432\u0435\u0434\u0435\u043d\u0438\u0435 \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0444\u0440\u043e\u043d\u0442\u043e\u043c. \u0421\u043e\u0432\u0435\u0440\u0448\u0435\u043d\u043d\u043e \u0435\u0441\u0442\u0435\u0441\u0442\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e, \u0447\u0442\u043e \u043c\u044b \u043d\u0435 \u0434\u043e\u043b\u0436\u043d\u044b \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0442\u044c \u043e\u0431\u043d\u043e\u0432\u043b\u044f\u0442\u044c \u0441\u0438\u0441\u0442\u0435\u043c\u043d\u044b\u0435 \u043f\u043e\u043b\u044f \u0441\u043d\u0430\u0440\u0443\u0436\u0438. \u041f\u043e\u044d\u0442\u043e\u043c\u0443 \u043f\u0440\u043e\u0441\u0442\u043e \u0437\u0430\u043f\u0440\u0435\u0442\u0438\u043c \u044d\u0442\u043e \u0434\u0435\u043b\u0430\u0442\u044c.<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">instance J.FromJSON NotAllowedFromFront where   parseJSON _ = fail \"Can't specify this field\"  type instance Field name req (Front b) modifiers a =   If (Contains NotAllowedFromFront modifiers)      (Maybe NotAllowedFromFront)     (Field name req b modifiers a)  -- >>> :t User @(Front Create) -- User @(Front Create) --  :: Maybe NotAllowedFromFront --     -> Maybe NotAllowedFromFront --     -> Text --     -> Maybe Text --     -> Maybe Text --     -> User (Front Create)<\/code><\/pre>\n<p>  <\/p>\n<p><code>Maybe<\/code> \u0437\u0434\u0435\u0441\u044c \u043d\u0443\u0436\u0435\u043d \u0438\u0441\u043a\u043b\u044e\u0447\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0434\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e\u0431\u044b \u0433\u0435\u043d\u0435\u0440\u0435\u043d\u043d\u044b\u0435 \u043a\u043e\u0434\u0435\u043a\u0438 \u0434\u043b\u044f JSON \u043d\u0435 \u043f\u0430\u0434\u0430\u043b\u0438, \u043d\u0435 \u043d\u0430\u0439\u0434\u044f \u044d\u0442\u043e\u0433\u043e \u043f\u043e\u043b\u044f \u0432 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u0435. \u0415\u0441\u043b\u0438 \u0431\u044b \u044f, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0431\u044b\u043b \u0433\u043e\u0442\u043e\u0432 \u043f\u0438\u0441\u0430\u0442\u044c \u044d\u0442\u0438 \u043a\u043e\u0434\u0435\u043a\u0438 \u0440\u0443\u043a\u0430\u043c\u0438, \u043d\u043e \u044d\u0442\u043e\u0433\u043e \u043c\u043e\u0436\u043d\u043e \u0431\u044b\u043b\u043e \u0431\u044b \u0438\u0437\u0431\u0435\u0436\u0430\u0442\u044c (<em>\u0443 \u0432\u0430\u0441 \u0435\u0449\u0451 \u043d\u0435 \u0441\u0431\u0438\u043b\u0441\u044f \u0441\u0447\u0451\u0442\u0447\u0438\u043a \u043f\u0440\u0438\u0441\u0435\u0434\u0430\u043d\u0438\u0439? \ud83d\ude42<\/em> ). <\/p>\n<p>  <\/p>\n<p>\u0414\u0430\u043b\u0435\u0435: <a href=\"https:\/\/github.com\/goosedb\/HKD-Example\/blob\/master\/src\/Entities\/Article.hs\" rel=\"nofollow noopener noreferrer\"><code>Article<\/code><\/a>:<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">data Article a = Article   { userID   :: Field \"userID\"   'Required a '[Immutable]                                     (ID User)   , tags     :: Field \"tags\"     'Required a '[CustomFilter ItSelf]                     (NonEmpty Text)   , title    :: Field \"title\"    'Required a '[CustomFilter Regex]                                Text   , content  :: Field \"content\"  'Required a '[CustomFilter NotFiltered]                          Text    , created  :: Field \"created\"  'Required a '[CustomFilter Range, NotAllowedFromFront]        UTCTime   , modified :: Field \"modified\" 'Optional a '[CustomFilter Range, NotAllowedFromFront]        UTCTime }<\/code><\/pre>\n<p>  <\/p>\n<p>\u0417\u0434\u0435\u0441\u044c \u043d\u0435\u0442 \u043d\u0438\u0447\u0435\u0433\u043e \u043d\u043e\u0432\u043e\u0433\u043e, \u043f\u043e\u043c\u0438\u043c\u043e <code>ID<\/code>, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u043d\u0435\u0442 \u043d\u0438\u0447\u0435\u0433\u043e \u0445\u0438\u0442\u0440\u043e\u0433\u043e (\u043e\u0442\u043d\u043e\u0441\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0442\u043e\u0433\u043e, \u0447\u0442\u043e \u0435\u0441\u0442\u044c \u0443\u0436\u0435). \u0412\u044b \u043c\u043e\u0436\u0435\u0442\u0435 \u0432 \u044d\u0442\u043e\u043c <a href=\"https:\/\/github.com\/goosedb\/HKD-Example\/blob\/master\/src\/Database\/Types.hs\" rel=\"nofollow noopener noreferrer\">\u0443\u0431\u0435\u0434\u0438\u0442\u044c\u0441\u044f<\/a>. <\/p>\n<p>  <\/p>\n<p>\u0422\u0438\u043f <a href=\"https:\/\/github.com\/goosedb\/HKD-Example\/blob\/master\/src\/Entities\/Comment.hs\" rel=\"nofollow noopener noreferrer\"><code>Comment<\/code><\/a> \u0442\u043e\u0436\u0435 \u0434\u043e\u0432\u043e\u043b\u044c\u043d\u043e \u0441\u043a\u0443\u0447\u043d\u044b\u0439, \u043d\u043e \u043f\u0440\u0435\u0434\u043e\u0441\u0442\u0430\u0432\u043b\u0435\u043d \u0437\u0434\u0435\u0441\u044c \u0434\u043b\u044f \u043f\u043e\u043b\u043d\u043e\u0442\u044b:<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">data Comment a = Comment   { userID    :: Field \"userID\"    'Required a '[Immutable]                                             (ID User)   , articleID :: Field \"articleID\" 'Required a '[Immutable]                                          (ID Article)   , content   :: Field \"content\"   'Required a '[CustomFilter NotFiltered]                                  Text    , created   :: Field \"created\"   'Required a '[Immutable, CustomFilter Range, NotAllowedFromFront]     UTCTime   , modified  :: Field \"modified\"  'Optional a '[CustomFilter Range, NotAllowedFromFront]                UTCTime }<\/code><\/pre>\n<p>  <\/p>\n<p>\u0412 \u0442\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435, \u0435\u0441\u043b\u0438 \u0447\u0438\u0442\u0430\u0442\u0435\u043b\u044c \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0437\u0430\u0433\u043b\u044f\u043d\u0443\u043b \u0432 \u0444\u0430\u0439\u043b\u044b, \u043e\u043d \u043c\u043e\u0433 \u0437\u0430\u043c\u0435\u0442\u0438\u0442\u044c, \u0447\u0442\u043e \u0434\u043b\u044f \u043a\u0430\u0436\u0434\u043e\u0439 \u0441\u0443\u0449\u043d\u043e\u0441\u0442\u0438 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0451\u043d \u043d\u0430\u0431\u043e\u0440 \u0438\u043d\u0441\u0442\u0430\u043d\u0441\u043e\u0432. \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u043e\u0431\u0433\u043e\u0432\u043e\u0440\u0438\u043c \u043a\u0430\u0436\u0434\u044b\u0439 \u0438\u0437 \u043d\u0438\u0445. <\/p>\n<p>  <\/p>\n<ul>\n<li>\n<p>EmptyData \u0434\u043b\u044f Update \u0438 Filter.<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">deriving instance (EmptyData (Comment Update)) deriving instance (EmptyData (Comment Filter))<\/code><\/pre>\n<p>  <\/p>\n<p>\u042d\u0442\u043e\u0442 \u043a\u043b\u0430\u0441\u0441 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0451\u043d <a href=\"https:\/\/github.com\/goosedb\/HKD-Example\/blob\/master\/src\/Base\/EmptyData.hs\" rel=\"nofollow noopener noreferrer\">\u0437\u0434\u0435\u0441\u044c<\/a> \u0438 \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u043d \u043f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e \u0434\u043b\u044f \u0432\u0441\u0435\u0445 \u0442\u0438\u043f\u043e\u0432 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0451\u043d\u043d\u043e\u0439 \u0444\u043e\u0440\u043c\u044b \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e <code>Generic<\/code>\u043e\u0432. <\/p>\n<p>  <\/p>\n<p>\u0418\u043c\u0435\u044f \u044d\u0442\u043e\u0442 \u043a\u043b\u0430\u0441\u0441 \u043c\u044b \u043c\u043e\u0436\u0435\u043c \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0441 \u0437\u0430\u0431\u0430\u0432\u043d\u043e\u0439 \u0441\u0438\u0433\u043d\u0430\u0442\u0443\u0440\u043e\u0439:<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">update :: EmptyData (e Update) => (e Update -> e Update) -> e Update update = ($ emptyData)   query :: EmptyData (e Filter) => (e Filter -> e Filter) -> e Filter query = ($ emptyData)<\/code><\/pre>\n<p>  <\/p>\n<p>\u0412 \u0442\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435, \u0435\u0441\u043b\u0438 \u0432\u0430\u043c \u043d\u0435\u044f\u0441\u043d\u043e \u0438\u0445 \u043d\u0430\u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435, \u044f \u0434\u0443\u043c\u0430\u044e, \u0447\u0442\u043e \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0435 \u043f\u0440\u0438\u043c\u0435\u0440\u044b \u0441\u043c\u043e\u0433\u0443\u0442 \u0432\u043d\u0435\u0441\u0442\u0438 \u044f\u0441\u043d\u043e\u0441\u0442\u044c.<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">-- \u0414\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0435 update @User (#about ?~ Just \"this is information about me\") -- > User {registered = Nothing, modified = Nothing, login = Nothing, email = Nothing, about = Just (Just \"this is information about me\")}l  -- \u0421\u0442\u0438\u0440\u0430\u0435\u043c \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0435 update @User (#about ?~ Nothing) -- > User {registered = Nothing, modified = Nothing, login = Nothing, email = Nothing, about = Just Nothing}  -- \u0418\u0449\u0435\u043c \u043f\u043e \u043d\u0438\u043a\u0443 query @User (#login ?~ [\"coolGuy\"]) -- > User {registered = Nothing, modified = Nothing, login = Just [\"coolGuy\"], email = Nothing, about = Nothing}  -- \u0418\u0449\u0435\u043c \u0438\u0437 \u0441\u043f\u0438\u0441\u043a\u0430 \u043b\u044e\u0434\u0435\u0439 \u0441 \u0434\u0430\u043d\u043d\u044b\u043c\u0438 \u043d\u0438\u043a\u0430\u043c\u0438 \u0442\u0435\u0445, \u0443 \u043a\u043e\u0433\u043e \u043d\u0435\u0442 \u043f\u043e\u0447\u0442\u044b query @User (       (#email ?~ DoesNotExist)      . (#login ?~ [\"yourMaster\", \"kekeHehe\"])     ) -- > User {registered = Nothing, modified = Nothing, login = Just [\"yourMaster\",\"kekeHehe\"], email = Just DoesNotExist, about = Nothing}<\/code><\/pre>\n<p>  <\/p>\n<p>\u041f\u0440\u043e\u0441\u0442\u043e \u043f\u0440\u0438\u044f\u0442\u043d\u044b\u0439 DSL \u0434\u043b\u044f \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u044f \u0444\u0438\u043b\u044c\u0442\u0440\u043e\u0432 \u0438 \u043f\u0430\u0442\u0447\u0435\u0439 \u0441 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435\u043c <code>generic-lens<\/code> (\u0445\u043e\u0442\u044c \u0432 \u0441\u0438\u043b\u0443 \u043f\u0440\u043e\u0441\u0442\u043e\u0442\u044b \u043d\u0430\u0448\u0435\u0433\u043e <code>CRUD<\/code> \u043e\u043d\u0438 \u043d\u0435 \u0431\u0443\u0434\u0443\u0442 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u044b, \u044f \u043f\u043e\u0441\u0447\u0438\u0442\u0430\u043b \u043d\u0443\u0436\u043d\u044b\u043c \u0440\u0430\u0441\u0441\u043a\u0430\u0437\u0430\u0442\u044c \u043e\u0431 \u044d\u0442\u0438\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u044f\u0445).<\/p>\n<p>  <\/li>\n<li>\n<p>\u041a\u0441\u0442\u0430\u0442\u0438 \u043e <code>generic-lens<\/code>. \u0422\u0430\u043a \u043a\u0430\u043a HKD \u0438\u043c\u0435\u044e\u0442 \u0441\u043b\u0438\u0448\u043a\u043e\u043c \u0445\u0438\u0442\u0440\u0443\u044e \u0444\u043e\u0440\u043c\u0443, \u043d\u0435\u043b\u044c\u0437\u044f \u043f\u0440\u043e\u0441\u0442\u043e \u0432\u0437\u044f\u0442\u044c \u0438 \u043e\u0431\u043d\u043e\u0432\u0438\u0442\u044c \u0435\u0433\u043e \u043f\u043e\u043b\u0435 <code>generic-lens<\/code>&#8216;\u043e\u0439. \u042d\u0442\u043e \u0438\u0437\u0432\u0435\u0441\u0442\u043d\u0430\u044f \u043f\u0440\u043e\u0431\u043b\u0435\u043c\u0430, \u0438 \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u0434\u043b\u044f \u043e\u0431\u0445\u043e\u0434\u0430 \u0434\u043b\u044f \u044d\u0442\u043e\u0439 \u043d\u0435\u043f\u0440\u0438\u044f\u0442\u043d\u043e\u0441\u0442\u0438 \u0443\u0436\u0435 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u0435\u0442. \u041c\u043e\u0436\u0435\u0442\u0435 \u043f\u043e\u0447\u0438\u0442\u0430\u0442\u044c \u043e\u0431 \u044d\u0442\u043e\u043c <a href=\"https:\/\/github.com\/kcsongor\/generic-lens\/issues\/96\" rel=\"nofollow noopener noreferrer\">\u0432 \u044d\u0442\u043e\u043c issue<\/a>. \u0418\u043c\u0435\u043d\u043d\u043e \u0432 \u0441\u0432\u044f\u0437\u0438 \u0441 \u044d\u0442\u0438\u043c \u0434\u043b\u044f \u043a\u0430\u0436\u0434\u043e\u0439 \u0441\u0443\u0449\u043d\u043e\u0441\u0442\u0438 \u043e\u0431\u044a\u044f\u0432\u043b\u0435\u043d \u0441\u0442\u0440\u0430\u043d\u043d\u044b\u0439 \u0438\u043d\u0441\u0442\u0430\u043d\u0441 \u043a\u043b\u0430\u0441\u0441\u0430 <code>HasField<\/code>.<\/p>\n<p>  <\/li>\n<li>\n<p><code>From\/ToJSON<\/code>. \u041f\u0440\u043e\u0441\u0442\u043e \u0433\u0435\u043d\u0435\u0440\u0430\u0446\u0438\u044f \u043a\u043e\u0434\u0435\u043a\u043e\u0432 \u0434\u043b\u044f \u044d\u043d\u043a\u043e\u0434\u0438\u043d\u0433\u0430 \u0438 \u0434\u0435\u043a\u043e\u0434\u0438\u043d\u0433\u0430 JSON. \u041d\u0438\u0447\u0435\u0433\u043e \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u043e\u0433\u043e.<\/p>\n<p>  <\/li>\n<li>\n<p><code>ToDBFilter<\/code>, <code>ToDBFormat<\/code>, <code>FromDBFormat<\/code>, <code>DBEntity<\/code>. \u0421\u043f\u0435\u0446\u0438\u0444\u0438\u0447\u043d\u044b\u0435 \u0434\u043b\u044f \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u043e\u0439 \u0431\u0430\u0437\u044b \u0434\u0430\u043d\u043d\u044b\u0445 \u0438\u043d\u0441\u0442\u0430\u043d\u0441\u044b, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043d\u0443\u0436\u043d\u044b \u0434\u043b\u044f \u043f\u0435\u0440\u0435\u0433\u043e\u043d\u043a\u0438 <code>Filter<\/code>, <code>Create<\/code>, <code>Update<\/code> \u0441\u0443\u0449\u043d\u043e\u0441\u0442\u0435\u0439 \u0432 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u044b <code>MongoDB<\/code> \u0438, \u043d\u0430\u043e\u0431\u043e\u0440\u043e\u0442, \u043f\u0430\u0440\u0441\u0438\u043d\u0433\u0430 <code>Create<\/code>-\u0441\u0443\u0449\u043d\u043e\u0441\u0442\u0438 (\u0441\u0443\u0449\u043d\u043e\u0441\u0442\u0438 \u0441 \u043d\u0430\u0438\u0431\u043e\u043b\u0435\u0435 \u043f\u043e\u043b\u043d\u044b\u043c \u043d\u0430\u0431\u043e\u0440\u043e\u043c \u043f\u043e\u043b\u0435\u0439) \u0438\u0437 \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u043e\u0432 <code>MongoDB<\/code>. \u0418 \u0435\u0449\u0451 \u043e\u0434\u0438\u043d \u0438\u043d\u0442\u0430\u043d\u0441, \u0447\u0442\u043e\u0431\u044b \u043f\u0440\u0438\u0432\u044f\u0437\u0430\u0442\u044c \u043a \u043a\u0430\u0436\u0434\u043e\u043c\u0443 \u0442\u0438\u043f\u0443 \u0441\u0443\u0449\u043d\u043e\u0441\u0442\u0435\u0439 \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435 \u043a\u043e\u043b\u043b\u0435\u043a\u0446\u0438\u0438 \u0432 <code>MongoDB<\/code>. \u0422\u0443\u0442, \u043a\u0430\u043a \u0440\u0430\u0437 \u043d\u0430\u043c \u043f\u0440\u0438\u0433\u043e\u0434\u0438\u043b\u0430\u0441\u044c <code>Schema<\/code>. \u0412\u043e\u0437\u044c\u043c\u0451\u043c \u0434\u043b\u044f \u043f\u0440\u0438\u043c\u0435\u0440\u0430 \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u044e <code>ToDBFormat<\/code> \u0434\u043b\u044f (Article Create):<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">instance ToDBFormat (Article Create) where     toDBFormat article =         [ userID   =:: idVal (userID article)         , tags     =:: toList (tags article)         , title    =:: title article         , content  =:: content article         , created  =:: created article         , modified =:: modified article          ]  (=::) :: KnownSymbol s => Mongo.Val b => (a Schema -> Named s) -> b -> Mongo.Field (=::) field val = nameOf field Mongo.=: val     <\/code><\/pre>\n<p>  <\/p>\n<p>\u0410 \u0442\u0435\u043f\u0435\u0440\u044c \u0441\u0430\u043c\u043e\u0435 \u0433\u043b\u0430\u0432\u043d\u043e\u0435: \u0441\u0430\u043c <code>CRUD<\/code> :). \u041e\u043d \u043f\u043e\u043b\u043d\u043e\u0441\u0442\u044c\u044e \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u043d <a href=\"https:\/\/github.com\/goosedb\/HKD-Example\/blob\/master\/src\/App.hs\" rel=\"nofollow noopener noreferrer\">\u0437\u0434\u0435\u0441\u044c<\/a>: \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u0432 \u0434\u0435\u0442\u0430\u043b\u044f\u0445.<br \/>  \u0412\u0445\u043e\u0434\u043d\u0430\u044f \u0442\u043e\u0447\u043a\u0430, \u043d\u0438\u0447\u0435\u0433\u043e \u043e\u0441\u043e\u0431\u0435\u043d\u043d\u043e\u0433\u043e, \u043d\u043e \u0434\u043b\u044f \u043f\u043e\u043b\u043d\u043e\u0442\u044b \u044f \u043f\u043e\u043a\u0430\u0436\u0443 \u044d\u0442\u043e \u0437\u0434\u0435\u0441\u044c:<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">app :: IO () app = do     pipe &lt;- Mongo.connect (Mongo.host \"127.0.0.1\")   let ?pipe = pipe   let ?database = \"database\"   scotty 8000 do     userHandlers     articleHandlers     commentHandlers<\/code><\/pre>\n<p>  <\/p>\n<p>\u0414\u0430\u043b\u0435\u0435. 3 \u043d\u0430\u0431\u043e\u0440\u0430 \u0445\u044d\u043d\u0434\u043b\u0435\u0440\u043e\u0432 \u0434\u043b\u044f \u043a\u0430\u0436\u0434\u043e\u0439 \u0441\u0443\u0449\u043d\u043e\u0441\u0442\u0438:<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">userHandlers :: WithMongo => ScottyM () userHandlers = do   post \"\/user\"        createUser   get  \"\/user\"        (getById @User)   put  \"\/user\"        updateUserByID   get  \"\/user\/search\" (getByFilter @User)<\/code><\/pre>\n<p>  <\/p>\n<pre><code class=\"haskell\">articleHandlers :: WithMongo => ScottyM () articleHandlers = do   post \"\/article\"        createArticle   get  \"\/article\"        (getById @Article)   put  \"\/article\"        updateUserByID   get  \"\/article\/search\" (getByFilter @Article)<\/code><\/pre>\n<p>  <\/p>\n<pre><code class=\"haskell\">commentHandlers :: WithMongo => ScottyM () commentHandlers = do   post \"\/comment\"        createComment   get  \"\/comment\"        (getById @Comment)   put  \"\/comment\"        updateCommentByID   get  \"\/comment\/search\" (getByFilter @Comment)<\/code><\/pre>\n<p>  <\/li>\n<\/ul>\n<p>  <\/p>\n<p>\u042f \u0445\u043e\u0447\u0443 \u043e\u0431\u0440\u0430\u0442\u0438\u0442\u044c \u0432\u0430\u0448\u0435 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435, \u0447\u0442\u043e \u0444\u0443\u043d\u043a\u0446\u0438\u044f <code>getByID<\/code> \u043f\u043e\u043b\u0438\u043c\u043e\u0440\u0444\u043d\u0430 \u0438 \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u0433\u043b\u0430\u0432\u043d\u043e\u0433\u043e \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u0430 \u043f\u0440\u0438\u043d\u0438\u043c\u0430\u0435\u0442 <em>\u0442\u0438\u043f<\/em> \u0441\u0443\u0449\u043d\u043e\u0441\u0442\u0438, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u043d\u0430\u043c \u043d\u0443\u0436\u043d\u0430.<\/p>\n<p>  <\/p>\n<p>\u0412\u043e\u0442 \u0435\u0451 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435.<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">getById :: forall e. (WithMongo, DBEntity e, J.ToJSON (e Create)) => Handler getById = do   eID &lt;- jsonData   e &lt;- liftIO do dbLoadByID @e eID   json e<\/code><\/pre>\n<p>  <\/p>\n<p>\u0424\u0443\u043d\u043a\u0446\u0438\u044f <code>loadByFilter<\/code> \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0430 \u043f\u043e\u0445\u043e\u0436\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c, \u043c\u043e\u0436\u0435\u0442\u0435 \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0435\u0442\u044c \u0441\u0430\u043c\u0438. <\/p>\n<p>  <\/p>\n<p>\u041a \u0441\u043e\u0436\u0430\u043b\u0435\u043d\u0438\u044e, \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u0438 \u043e\u0431\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u044f \u0442\u0430\u043a \u043a\u0440\u0430\u0441\u0438\u0432\u043e \u0438 \u043f\u0440\u043e\u0441\u0442\u043e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u043d\u0435 \u0443\u0434\u0430\u0441\u0442\u0441\u044f, \u043f\u043e\u0442\u043e\u043c\u0443 \u0447\u0442\u043e \u043e\u043d\u0438 \u0438\u043c\u0435\u044e\u0442 \u0441\u043f\u0435\u0446\u0438\u0444\u0438\u0447\u043d\u0443\u044e \u043b\u043e\u0433\u0438\u043a\u0443. \u041d\u043e \u043c\u044b \u0432\u0441\u0451 \u0435\u0449\u0451 \u043c\u043e\u0436\u0435\u043c \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u0432 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u0438 \u0442\u0435\u043c, \u0447\u0442\u043e \u043d\u0430\u0448\u0438 \u0441\u0443\u0449\u043d\u043e\u0441\u0442\u0438 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u044b \u043a\u0430\u043a <code>HKD<\/code>.<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">createUser :: Handler createUser = do   User {..} &lt;- jsonData @(User (Front Create)) -- (1)   alreadyExists &lt;- liftIO $ dbSearch $ queryEntity @User (#entity . #login ?~ [login]) -- (2)   case alreadyExists of     [] -> do       userID &lt;- liftIO do          now &lt;- getCurrentTime          dbCreate $ User { registered = now, modified = Nothing,  .. } -- (3)       json userID     _ -> text \"User with such ID already exists\"<\/code><\/pre>\n<p>  <\/p>\n<p>\u041d\u0430 \u0432\u0441\u044f\u043a\u0438\u0439 \u0441\u043b\u0443\u0447\u0430\u0439, \u044f \u043f\u043e\u044f\u0441\u043d\u044e, \u0447\u0442\u043e \u0437\u0434\u0435\u0441\u044c \u043f\u0440\u043e\u0438\u0441\u0445\u043e\u0434\u0438\u0442. <\/p>\n<p>  <\/p>\n<ol>\n<li>\u041f\u044b\u0442\u0430\u0435\u043c\u0441\u044f \u0440\u0430\u0441\u043f\u0430\u0440\u0441\u0438\u0442\u044c \u0438\u0437 <code>JSON<\/code>-\u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b, \u0444\u043e\u0440\u043c\u044b <code>Front Create<\/code>. \u042d\u0442\u043e \u0437\u043d\u0430\u0447\u0438\u0442, \u0447\u0442\u043e \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043f\u043e\u043b\u044f \u043c\u044b \u0437\u0430\u043f\u0440\u0435\u0449\u0430\u0435\u043c \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0442\u044c \u0441\u043d\u0430\u0440\u0443\u0436\u0438.<\/li>\n<li>\u0415\u0441\u043b\u0438 \u0432\u0441\u0451 \u043f\u0440\u043e\u0448\u043b\u043e \u0443\u0434\u0430\u0447\u043d\u043e, \u0442\u043e \u043f\u044b\u0442\u0430\u0435\u043c\u0441\u044f \u043d\u0430\u0439\u0442\u0438 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f \u0441 \u043d\u0438\u043a\u043e\u043c, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0438\u043c\u0435\u0435\u0442 \u043d\u043e\u0432\u044b\u0439 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c. \u0415\u0441\u043b\u0438 \u0442\u0430\u043a\u043e\u0439 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c \u0443\u0436\u0435 \u0435\u0441\u0442\u044c. \u0441\u043e\u043e\u0431\u0449\u0430\u0435\u043c \u043e\u0431 \u044d\u0442\u043e\u043c,<\/li>\n<li>\u0415\u0441\u043b\u0438 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f \u0441 \u0442\u0430\u043a\u0438\u043c \u043d\u0438\u043a\u043e\u043c \u0435\u0449\u0451 \u043d\u0435 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u0435\u0442. \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u0443\u0435\u043c \u0435\u0433\u043e. \u0422\u0443\u0442 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u0440\u0430\u0441\u0448\u0438\u0440\u0435\u043d\u0438\u0435 <code>RecordWildCards<\/code>. <code>{..}<\/code> \u041f\u0440\u0438 \u043c\u0430\u0442\u0447\u0438\u043d\u0433\u0435 \u0432\u0432\u043e\u0434\u0438\u0442 \u0432\u0441\u0435 \u0440\u0435\u043a\u043e\u0440\u0434\u044b \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b \u0432 \u0441\u043a\u043e\u0443\u043f, \u043a\u0430\u043a \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f. \u0410 \u043f\u0440\u0438 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0438 \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b <code>{..}<\/code> \u0432\u044b\u0438\u0441\u043a\u0438\u0432\u0430\u0435\u0442 \u0432\u0441\u0435 \u0438\u043c\u0435\u043d\u0430 \u0441 \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u044f\u043c\u0438 \u0440\u0435\u043a\u043e\u0440\u0434\u043e\u0432 \u0438 \u0432\u0441\u0442\u0430\u0432\u044f\u043b\u0435\u0442 \u0438\u0445 \u0432 \u0441\u0435\u0431\u044f (\u043f\u043e\u0434\u0440\u043e\u0431\u043d\u0435\u0435 \u043e <a href=\"https:\/\/ghc.gitlab.haskell.org\/ghc\/doc\/users_guide\/exts\/record_wildcards.html\" rel=\"nofollow noopener noreferrer\"><code>RecordWildCards<\/code><\/a>). \u041e\u0434\u043d\u0430\u043a\u043e \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 \u043d\u0430\u043c \u044f\u0432\u043d\u043e \u0441\u043a\u0430\u0436\u0435\u0442, \u0447\u0442\u043e \u0437\u0430\u043f\u043e\u043b\u043d\u0438\u0442\u044c \u0442\u0430\u043a\u0438\u043c \u0441\u043f\u043e\u0441\u043e\u0431\u043e\u043c \u043f\u043e\u043b\u044f <code>registered<\/code> \u0438 <code>modified<\/code> \u044f\u0432\u043d\u043e \u043d\u0435 \u0432\u044b\u0439\u0434\u0435\u0442. \u041f\u043e\u044d\u0442\u043e\u043c\u0443 \u0438\u0445 \u043f\u0440\u0438\u0434\u0451\u0442\u0441\u044f \u0443\u043a\u0430\u0437\u0430\u0442\u044c \u0440\u0443\u043a\u0430\u043c\u0438 (\u0447\u0442\u043e \u0434\u043e\u0432\u043e\u043b\u044c\u043d\u043e \u0435\u0441\u0442\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0432 \u0434\u0430\u043d\u043d\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435).<\/li>\n<\/ol>\n<p>  <\/p>\n<p>\u041f\u043e\u0434\u043e\u0431\u043d\u044b\u043c \u0441\u043f\u043e\u0441\u043e\u0431\u043e\u043c \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u044b \u0432\u0441\u0435 \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u044b\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 (\u044f \u043d\u0430\u0441\u0442\u0430\u0438\u0432\u0430\u044e \u043d\u0430 \u0442\u043e\u043c, \u0447\u0442\u043e\u0431\u044b \u0432\u044b \u043e\u0431\u0440\u0430\u0442\u0438\u043b\u0438\u0441\u044c \u043a \u0438\u0441\u0445\u043e\u0434\u043d\u0438\u043a\u0430\u043c \u0438 \u043f\u043e\u0447\u0438\u0442\u0430\u043b\u0438 \u0438\u0445 \u0441\u0430\u043c\u0438).<\/p>\n<p>  <\/p>\n<h2 id=\"chto-v-itoge\">\u0427\u0442\u043e \u0432 \u0438\u0442\u043e\u0433\u0435?<\/h2>\n<p>  <\/p>\n<p>\u0412\u043d\u0438\u043c\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0435 \u0445\u0430\u0441\u043a\u0435\u043b\u0438\u0441\u0442\u044b \u0443\u0437\u043d\u0430\u044e\u0442 \u0432 \u044d\u0442\u043e\u043c \u043f\u043e\u0434\u0445\u043e\u0434\u0435 \u043f\u043e\u0434\u0445\u043e\u0434 <a href=\"https:\/\/haskell-beam.github.io\/beam\/\" rel=\"nofollow noopener noreferrer\"><code>Beam<\/code><\/a> \u043a \u0440\u0430\u0431\u043e\u0442\u0435 \u0441\u043e \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430\u043c\u0438. \u0418, \u0445\u043e\u0442\u044c \u0438 \u043f\u0440\u0438\u043c\u0435\u0440, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442 \u0434\u0430\u043d\u043d\u0430\u044f \u0437\u0430\u043c\u0435\u0442\u043a\u0430 \u0438\u043c\u0435\u0435\u0442 \u044f\u0432\u043d\u044b\u0439 \u0443\u043a\u043b\u043e\u043d \u0432 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0438\u0435 <code>CRUD<\/code>\u043e\u0432, \u044f \u0445\u043e\u0447\u0443 \u043e\u0431\u0440\u0430\u0442\u0438\u0442\u044c \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435 \u043d\u0430 \u043e\u0442\u043b\u0438\u0447\u0438\u0435, \u043e \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u044f \u0443\u0436\u0435 \u0443\u043f\u043e\u043c\u0438\u043d\u0430\u043b \u0432\u0441\u043a\u043e\u043b\u044c\u0437\u044c: <code>Beam<\/code> (\u0445\u043e\u0442\u044f \u0438 \u0434\u0435\u043b\u0430\u0435\u0442 \u043c\u043d\u043e\u0433\u043e \u0434\u0440\u0443\u0433\u0438\u0445 \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u044b\u0445 \u0448\u0442\u0443\u043a, \u0442\u0430\u043a\u0438\u0445 \u043a\u0430\u043a <code>DSL<\/code> \u0434\u043b\u044f <code>SQL<\/code> \u0437\u0430\u043f\u0440\u043e\u0441\u043e\u0432) \u043b\u0438\u0448\u044c \u043f\u0440\u0435\u0434\u043e\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 <code>HKD<\/code> \u0434\u043b\u044f \u0440\u0430\u0431\u043e\u0442\u044b \u0441 \u0411\u0414. \u0412 \u043d\u0430\u0448\u0435\u043c \u0436\u0435 \u0441\u043b\u0443\u0447\u0430\u0435 \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b \u043f\u043e\u043b\u0443\u0447\u0438\u043b\u0438 <em>\u0445\u0430\u0440\u0430\u043a\u0442\u0435\u0440<\/em>. \u041e\u043d\u0438 \u043f\u043e\u043b\u0443\u0447\u0438\u043b\u0438\u0441\u044c \u0441\u0432\u044f\u0437\u0430\u043d\u043d\u044b\u043c\u0438 \u0441 \u0434\u043e\u043c\u0435\u043d\u043d\u043e\u0439 \u043e\u0431\u043b\u0430\u0441\u0442\u044c\u044e. \u041d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043f\u043e\u043b\u044f \u043d\u0435\u043b\u044c\u0437\u044f \u0438\u0437\u043c\u0435\u043d\u044f\u0442\u044c, \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u2014 \u043d\u0435\u043b\u044c\u0437\u044f \u0437\u0430\u0434\u0430\u0432\u0430\u0442\u044c \u0441 \u0444\u0440\u043e\u043d\u0442\u0430, \u043f\u043e\u0442\u043e\u043c\u0443 \u0447\u0442\u043e \u043e\u043d\u0438 \u0441\u0447\u0438\u0442\u0430\u044e\u0442\u0441\u044f \u0441\u0430\u043c\u043e\u0439 \u0441\u0438\u0441\u0442\u0435\u043c\u043e\u0439. <code>Beam<\/code> \u0436\u0435 \u043d\u0435 \u043d\u0430\u0434\u0435\u043b\u044f\u0435\u0442 \u0432\u0430\u0448\u0438 \u043f\u043e\u043b\u044f \u043e\u0441\u043e\u0431\u044b\u043c\u0438 \u0441\u043c\u044b\u0441\u043b\u0430\u043c\u0438, \u043e\u043d \u043b\u0438\u0448\u044c \u0434\u0435\u043b\u0430\u0435\u0442 \u0438\u0437 \u0434\u0430\u043d\u043d\u044b\u0445, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0432\u044b \u0441\u043e\u0437\u0434\u0430\u0451\u0442\u0435, \u0442\u0430\u0431\u043b\u0438\u0447\u043a\u0438 \u0432 \u0411\u0414.<br \/>  \u0418 <code>CRUD<\/code>\u044b \u2014 \u044d\u0442\u043e, \u043a\u043e\u043d\u0435\u0447\u043d\u043e, \u043d\u0435 \u0435\u0434\u0438\u043d\u0441\u0442\u0432\u0435\u043d\u043d\u043e\u0435, \u043d\u0430 \u0447\u0442\u043e \u0441\u043f\u043e\u0441\u043e\u0431\u043d\u044b <code>HKD<\/code>. \u0412 \u0438\u043d\u0442\u0435\u0440\u043d\u0435\u0442\u0435 \u044f \u043d\u0430\u0448\u0451\u043b \u0435\u0449\u0451 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043f\u0440\u0438\u043c\u0435\u0440\u043e\u0432 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f <code>HKD<\/code>:<\/p>\n<p>  <\/p>\n<ul>\n<li>\n<p>\u0412\u0430\u043b\u0438\u0434\u0430\u0446\u0438\u044f (<a href=\"https:\/\/habr.com\/ru\/post\/429104\/\">\u043f\u0435\u0440\u0435\u0432\u043e\u0434 \u043d\u0430 habr<\/a>, <a href=\"https:\/\/reasonablypolymorphic.com\/blog\/higher-kinded-data\/\" rel=\"nofollow noopener noreferrer\">\u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b<\/a>)):<br \/>  \u0421 \u043f\u043e\u043c\u043e\u0449\u044c\u044e <code>Generic<\/code> \u0438 <code>HKD<\/code> (\u0440\u043e\u043b\u044c <code>Generic<\/code> \u0432 \u044d\u0442\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u043d\u0438 \u0447\u0443\u0442\u044c \u043d\u0435 \u043c\u0435\u043d\u044c\u0448\u0435, \u0447\u0435\u043c <code>HKD<\/code>) \u043c\u043e\u0436\u043d\u043e \u0438\u0437 \u043d\u0435\u0432\u0430\u043b\u0438\u0434\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0445 \u0434\u0430\u043d\u043d\u044b\u0445 \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0432\u0430\u043b\u0438\u0434\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0435. \u042f \u043f\u0440\u0438\u0432\u0435\u0434\u0443 \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u043e\u0439 \u043f\u0440\u0438\u043c\u0435\u0440 \u0442\u043e\u0433\u043e, \u043a\u0430\u043a \u044d\u0442\u043e \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u0441\u043d\u0430\u0440\u0443\u0436\u0438, \u0430 \u0434\u043b\u044f \u0432\u044b\u044f\u0441\u043d\u0435\u043d\u0438\u044f \u0434\u0435\u0442\u0430\u043b\u0435\u0439 \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u0438 \u043f\u0440\u043e\u0448\u0443 \u043e\u0431\u0440\u0430\u0442\u0438\u0442\u044c\u0441\u044f \u043a \u0438\u0441\u0442\u043e\u0447\u043d\u0438\u043a\u0443.<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\">type family HKD f a where HKD Identity a = a HKD f        a = f a  data User f = User { login :: HKD f String, age :: HKD f Int }  user login age = User @Maybe                  { login = if length login > 6 &amp;&amp; length login &lt; 20 then Just login else Nothing                 , age = if age > 0 then Just age else Nothing  }  >>> gvalidate $ user \"foo\" 7 -- \u043e\u0434\u043d\u043e \u0438\u0437 \u043f\u043e\u043b\u0435\u0439 \u043d\u0435\u0432\u0430\u043b\u0438\u0434\u043d\u043e > Nothing -- \u0432\u0441\u044f \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430 \u043e\u0431\u0440\u0430\u0449\u0430\u0435\u0442\u0441\u044f \u0432 Nothing >>> gvalidate $ user \"foobar1\" 15 -- \u043e\u0431\u0430 \u043f\u043e\u043b\u044f \u0432\u0430\u043b\u0438\u0434\u043d\u044b > Just (User { login = \"foobar1\" , age = 15 }) -- \u0432\u0441\u044f \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430 \u0432\u0430\u043b\u0438\u0434\u043d\u0430<\/code><\/pre>\n<p>  <\/p>\n<p>TL;DR: \u0421\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430 \u043f\u0435\u0440\u0435\u0433\u043e\u043d\u044f\u0435\u0442\u0441\u044f \u0432 \u0443\u043d\u0438\u0432\u0435\u0440\u0441\u0430\u043b\u044c\u043d\u043e\u0435 <code>Generic<\/code>-\u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u0438\u0435, &#171;\u0442\u0440\u0430\u0432\u0435\u0440\u0441\u0438\u0442\u0441\u044f&#187; \u043f\u043e <code>Maybe<\/code> \u0438 \u0441\u043e\u0431\u0438\u0440\u0430\u0435\u0442\u0441\u044f \u043e\u0431\u0440\u0430\u0442\u043d\u043e.<\/p>\n<p>  <\/li>\n<li>\n<p>\u041f\u0440\u043e\u0441\u0442\u043e\u0439 \u043f\u0440\u0438\u043c\u0435\u0440 \u0441 \u0434\u0430\u043d\u043d\u044b\u043c\u0438 \u043e \u043f\u043e\u0433\u043e\u0434\u0435. \u0410\u0433\u0433\u0440\u0435\u0433\u0430\u0446\u0438\u044f:<br \/>  \u0412 <a href=\"https:\/\/github.com\/Michaelt293\/higher-kinded-data\" rel=\"nofollow noopener noreferrer\">\u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b\u0435<\/a> \u043f\u0440\u0438\u043c\u0435\u0440\u044b \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u043d\u044b \u043d\u0430 <code>Scala<\/code>. \u041d\u0438\u0436\u0435 \u2014 \u044d\u043a\u0432\u0438\u0432\u0430\u043b\u0435\u043d\u0442 \u043d\u0430 <code>Haskell<\/code>.<\/p>\n<p>  <\/p>\n<pre><code class=\"haskell\"> data WheaterData f = WheaterData { temperature :: HKD f Double -- HKD \u0438\u0437 \u043f\u0440\u0438\u043c\u0435\u0440\u0430 \u0432\u044b\u0448\u0435 , windSpeed   :: HKD f Double , dewPoint    :: HKD f Double  }  instance (Semigroup (HKD f Double)) => Semigroup (WheaterData f) where (&lt;>) wd1 wd2 = WheaterData (comb temperature) (comb windSpeed) (comb dewPoint)   where comb f = ((&lt;>) `on` f) wd1 wd2  stats :: Num (HKD f Double) => NonEmpty (WheaterData f) stats =  WheaterData 0 6 15 :| [WheaterData (-8) 2 19, WheaterData (-40) 30 10]  >>> sconcat $ stats @Max > WheaterData {temperature = Max {getMax = 0.0}, windSpeed = Max {getMax = 30.0}, dewPoint = Max {getMax = 19.0}} >>> sconcat $ stats @Min > WheaterData {temperature = Min {getMin = -40.0}, windSpeed = Min {getMin = 2.0}, dewPoint = Min {getMin = 10.0}}  <\/code><\/pre>\n<p>  <\/li>\n<li><code>HKD<\/code> \u0442\u0430\u043a\u0436\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044e\u0442\u0441\u044f \u0432 \u0434\u043e\u0432\u043e\u043b\u044c\u043d\u043e \u043e\u0431\u044b\u0434\u0435\u043d\u043d\u044b\u0445 \u0434\u043b\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u044b\u0445 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442\u043e\u0432 \u0432\u0435\u0449\u0430\u0445.<br \/>  \u041c\u043e\u0436\u043d\u043e \u0432\u0441\u043f\u043e\u043c\u043d\u0438\u0442\u044c, \u0447\u0442\u043e \u044d\u043c\u0443\u043b\u044f\u0446\u0438\u044f <code>type class<\/code>\u043e\u0432 \u0432 <code>Scala<\/code> \u044d\u0442\u043e \u0442\u043e\u0436\u0435 \u043f\u0440\u0438\u043c\u0435\u0440 <code>HKD<\/code>. \u0412\u043e\u0442 \u043f\u0440\u0438\u043c\u0435\u0440 \u0438\u0437 \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0438 <code>cats<\/code>: <br \/> \n<pre><code class=\"scala\">trait Functor[F[_]] { def map[A, B](fa: F[A])(f: A => B): F[B] }<\/code><\/pre>\n<p>  <\/p>\n<p>\u041d\u0430 <code>Haskell<\/code> \u044d\u0442\u043e \u043c\u043e\u0436\u043d\u043e \u0438\u0437\u043e\u0431\u0440\u0430\u0437\u0438\u0442\u044c \u0442\u0430\u043a:  <\/p>\n<pre><code class=\"haskell\">data Functor f = Functor { map :: forall a b. f a -> (a -> b) -> f b }<\/code><\/pre>\n<p>  <\/p>\n<p>\u041d\u0435 \u043e\u0442\u0445\u043e\u0434\u044f \u043e\u0442 \u043a\u0430\u0441\u0441\u044b, \u043c\u043e\u0436\u043d\u043e \u0437\u0430\u043c\u0435\u0442\u0438\u0442\u044c, \u0447\u0442\u043e \u043f\u043e \u0442\u043e\u043c\u0443 \u0436\u0435 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0443 \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 <code>Service\/Handle Pattern<\/code>. \u0415\u0441\u043b\u0438 \u0432\u044b \u0441 \u043d\u0438\u043c \u0435\u0449\u0451 \u043d\u0435 \u0437\u043d\u0430\u043a\u043e\u043c\u044b, \u043e\u0437\u043d\u0430\u043a\u043e\u043c\u0438\u0442\u044c\u0441\u044f \u043c\u043e\u0436\u0435\u0442\u0435 <a href=\"https:\/\/www.schoolofhaskell.com\/user\/meiersi\/the-service-pattern\" rel=\"nofollow noopener noreferrer\">\u0437\u0434\u0435\u0441\u044c<\/a>.<\/p>\n<h2 id=\"a-chto-na-scala\">\u0410 \u0447\u0442\u043e \u043d\u0430 Scala?<\/h2>\n<p>  <\/p>\n<p>\u041d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0432\u0435\u0449\u0438, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u044f \u043f\u043e\u043a\u0430\u0437\u0430\u043b \u0432\u044b\u0448\u0435, \u0431\u0435\u0437 \u0442\u0440\u0443\u0434\u0430 \u0440\u0435\u0430\u043b\u0438\u0437\u0443\u044e\u0442\u0441\u044f \u043d\u0430 <code>Scala 3<\/code>. \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u0440\u0430\u0437\u0431\u0435\u0440\u0451\u043c \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u043e\u0439 \u043a\u0443\u0441\u043e\u0447\u0435\u043a (\u044d\u0442\u043e\u0442 \u043f\u0440\u0438\u043c\u0435\u0440 \u0432\u044b \u043c\u043e\u0436\u0435\u0442\u0435 \u0432\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u0432 <a href=\"https:\/\/scastie.scala-lang.org\/\" rel=\"nofollow noopener noreferrer\"><code>Scastie<\/code><\/a> \u0438 \u043f\u043e\u0438\u0433\u0440\u0430\u0442\u044c\u0441\u044f).<\/p>\n<p>  <\/p>\n<pre><code class=\"scala\">class Create class Update class Filter class Schema  class Required class Optional  \/\/ Literal types, \u043a\u0430\u0436\u0435\u0442\u0441\u044f, \u0434\u043e\u0441\u0442\u0443\u043f\u043d\u044b \u0443\u0436\u0435 \u0432 Scala 2.13. \u0410\u043d\u0430\u043b\u043e\u0433 DataKinds. case class Named[T]()(implicit v: ValueOf[T]) {   val name = v.value }  \/\/ \u0410 \u0432\u043e\u0442 match type \u0434\u043e\u0441\u0442\u0443\u043f\u0435\u043d \u0442\u043e\u043b\u044c\u043a\u043e \u0432 Scala 3. \u0410\u043d\u0430\u043b\u043e\u0433 \u0437\u0430\u043a\u0440\u044b\u0442\u044b\u0445 TypeFamilies. type ApplyRequired[R, T] = R match    case Required => T   case Optional => Option[T]  type Field[R, N, A, T] = A match   case Create => ApplyRequired[R, T]   case Update => Option[ApplyRequired[R, T]]   case Schema => Named[N]  case class User[A]   ( login : Field[Required, \"login\", A, String]   , email : Field[Optional, \"email\", A, String]   )  val userCreate = User[Create](\"lologin\", None) val userUpdate = User[Update](None, Some(Some(\"mamail\"))) val userSchema = User[Schema](Named(), Named())  userCreate.login \/\/ \"lologin\" userUpdate.login \/\/ None userUpdate.email \/\/ Some(Some(\"mamail\")) userSchema.login.name \/\/ \"login\" userSchema.email.name \/\/ \"email\"<\/code><\/pre>\n<p>  <\/p>\n<p>\u0421\u0442\u043e\u0438\u0442 \u0437\u0430\u043c\u0435\u0442\u0438\u0442\u044c, \u0447\u0442\u043e \u0432 Scala \u043d\u0435\u0442 \u043e\u0442\u043a\u0440\u044b\u0442\u044b\u0445 <code>match type<\/code>. \u041f\u043e\u044d\u0442\u043e\u043c\u0443 \u0432 \u0442\u0430\u043a\u043e\u043c \u0432\u0438\u0434\u0435 \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0442\u044c &#171;\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u0441\u043a\u0438\u0435&#187; \u044d\u0444\u0444\u0435\u043a\u0442\u044b \u043d\u0435 \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u0441\u044f. \u0412\u044b\u0445\u043e\u0434, \u043a\u043e\u043d\u0435\u0447\u043d\u043e \u0435\u0441\u0442\u044c, \u043d\u043e \u0432\u044b \u043f\u043e\u0442\u0435\u0440\u044f\u0435\u0442\u0435 \u0447\u0430\u0441\u0442\u044c &#171;\u043a\u0440\u0430\u0441\u043e\u0442\u044b&#187;. \u041c\u043e\u0436\u043d\u043e \u0438\u0437\u0431\u0430\u0432\u0438\u0442\u044c\u0441\u044f \u043e\u0442 <code>Field<\/code> \u0438 \u0434\u0430\u0442\u044c \u0432\u0441\u0435\u043c \u044d\u0444\u0444\u0435\u043a\u0442\u0430\u043c \u043f\u0440\u0438\u043d\u0438\u043c\u0430\u0442\u044c \u0432\u0441\u0435 3 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u0430: \u043e\u043f\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0441\u0442\u044c, \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435, \u0442\u0438\u043f \u043f\u043e\u043b\u044f (\u0434\u0430, \u0441\u043f\u0438\u0441\u043e\u043a \u043c\u043e\u0434\u0438\u0444\u0438\u043a\u0430\u0442\u043e\u0440\u043e\u0432 \u0432 \u0441\u043d\u0438\u043f\u043f\u0435\u0442\u0435 \u0441\u043e <code>Scala<\/code> \u043d\u0435 \u043f\u0440\u0435\u0434\u043e\u0441\u0442\u0430\u0432\u043b\u0435\u043d, \u044f \u043f\u043b\u043e\u0445\u043e \u0437\u043d\u0430\u044e <code>Scala<\/code>, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u043c\u0443\u0447\u0430\u0442\u044c \u0441\u0435\u0431\u044f \u0438 \u043a\u043e\u043c\u043f\u0438\u043b\u044f\u0442\u043e\u0440 \u0434\u0430\u043b\u044c\u043d\u0435\u0439\u0448\u0438\u043c\u0438 \u044d\u043a\u0441\u043f\u0435\u0440\u0438\u043c\u0435\u043d\u0442\u0430\u043c\u0438 \u043d\u0435 \u0441\u0442\u0430\u043b). \u0422\u043e\u0433\u0434\u0430 \u043c\u043e\u0436\u043d\u043e \u043f\u0438\u0441\u0430\u0442\u044c \u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0443\u0433\u043e\u0434\u043d\u043e \u044d\u0444\u0444\u0435\u043a\u0442\u043e\u0432, \u043f\u0443\u0441\u0442\u044c \u0438 \u0446\u0435\u043d\u043e\u0439 \u043b\u0430\u043a\u043e\u043d\u0438\u0447\u043d\u043e\u0441\u0442\u0438. <\/p>\n<p>  <\/p>\n<p>\u041d\u0443 \u0438 \u0432 \u043a\u043e\u043d\u0446\u0435 \u0435\u0449\u0451 \u0440\u0430\u0437: <a href=\"https:\/\/github.com\/goosedb\/HKD-Example\" rel=\"nofollow noopener noreferrer\">\u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u0440\u0435\u043f\u043e\u0437\u0438\u0442\u043e\u0440\u0438\u0439<\/a>.<\/p>\n<\/li>\n<\/ul>\n<\/div>\n<\/div>\n<\/div>\n<p><!----><!----><\/div>\n<p><!----><!----><br \/> \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438 <a href=\"https:\/\/habr.com\/ru\/articles\/578070\/\"> https:\/\/habr.com\/ru\/articles\/578070\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<div><!--[--><!--]--><\/div>\n<div id=\"post-content-body\">\n<div>\n<div class=\"article-formatted-body article-formatted-body article-formatted-body_version-1\">\n<div xmlns=\"http:\/\/www.w3.org\/1999\/xhtml\">\n<p><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w1560\/getpro\/habr\/post_images\/3b7\/45e\/3cf\/3b745e3cf32114d419c2d47119184f22.png\" alt=\"image\" data-src=\"https:\/\/habrastorage.org\/getpro\/habr\/post_images\/3b7\/45e\/3cf\/3b745e3cf32114d419c2d47119184f22.png\"\/><\/p>\n<p>  <\/p>\n<h2 id=\"vazhnyy-diskleymer\">\u0412\u0430\u0436\u043d\u044b\u0439 \u0434\u0438\u0441\u043a\u043b\u0435\u0439\u043c\u0435\u0440<\/h2>\n<p>  <\/p>\n<p>\u041f\u0435\u0440\u0435\u0434 \u043d\u0430\u0447\u0430\u043b\u043e\u043c \u0445\u043e\u0447\u0443 \u043f\u043e\u0437\u0432\u043e\u043b\u0438\u0442\u044c \u0441\u0435\u0431\u0435 \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u043e\u0439, \u043d\u043e \u0432\u0430\u0436\u043d\u044b\u0439 \u0434\u0438\u0441\u043a\u043b\u0435\u0439\u043c\u0435\u0440.<\/p>\n<p>  <\/p>\n<p><em>\u042f \u043d\u0435 \u0441\u0442\u0430\u0440\u0430\u044e\u0441\u044c \u0432\u0430\u043c \u043f\u0440\u043e\u0434\u0430\u0442\u044c \u044d\u0442\u043e\u0442 c\u043f\u043e\u0441\u043e\u0431 \u043a\u0430\u043a \u043f\u0430\u043d\u0430\u0446\u0435\u044e<\/em>.<br \/>  \u042f \u043b\u0438\u0448\u044c \u0445\u043e\u0447\u0443 \u0440\u0430\u0441\u0441\u043a\u0430\u0437\u0430\u0442\u044c \u0432\u0430\u043c \u0435\u0449\u0451 \u043e\u0434\u0438\u043d \u0441\u043f\u043e\u0441\u043e\u0431 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0435 \u0438 \u043f\u043e\u043a\u0430\u0437\u0430\u0442\u044c, \u043a\u0430\u043a \u0435\u0433\u043e \u043c\u043e\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c, \u043d\u0430 \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u043e\u043c \u043f\u0440\u0438\u043c\u0435\u0440\u0435.<br \/>  \u041a\u0430\u043a \u0438 \u0432\u0441\u0435 \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u044b\u0435 \u043f\u043e\u0434\u0445\u043e\u0434\u044b, \u044d\u0442\u043e\u0442 \u0438\u043c\u0435\u0435\u0442 \u0441\u0432\u043e\u0438 \u043d\u0435\u0434\u043e\u0441\u0442\u0430\u0442\u043a\u0438. \u0418 \u043a\u043e\u0435-\u0433\u0434\u0435 \u043f\u0440\u0438\u0434\u0451\u0442\u0441\u044f \u043f\u0440\u0438\u0441\u0435\u0434\u0430\u0442\u044c. \u0421 \u044d\u0442\u0438\u043c\u0438 \u043f\u0440\u0438\u0441\u0435\u0434\u0430\u043d\u0438\u044f\u043c\u0438 \u043c\u044b \u0432\u0441\u0442\u0440\u0435\u0442\u0438\u043c\u0441\u044f \u0434\u043e\u0432\u043e\u043b\u044c\u043d\u043e \u0441\u043a\u043e\u0440\u043e. <\/p>\n<p>  <\/p>\n<blockquote><p><code>\u00ab\u041d\u0435 \u0434\u0443\u043c\u0430\u0439\u0442\u0435, \u0447\u0442\u043e \u044f \u0441\u0435\u0439\u0447\u0430\u0441 \u0431\u0443\u0434\u0443 \u0440\u0430\u0437\u0432\u0438\u0432\u0430\u0442\u044c \u044d\u0442\u0443 \u043a\u043e\u043d\u0446\u0435\u043f\u0446\u0438\u044e, \u0430 \u0437\u0430\u0442\u0435\u043c \u0440\u0430\u0437\u043e\u0447\u0430\u0440\u0443\u044e\u0441\u044c \u0432 \u043d\u0435\u0439. \u0422\u0430\u043a\u043e\u0439 \u0434\u0440\u0430\u043c\u0430\u0442\u0443\u0440\u0433\u0438\u0438 \u043d\u0435 \u0431\u0443\u0434\u0435\u0442. \u042f \u0438\u0437\u043d\u0430\u0447\u0430\u043b\u044c\u043d\u043e \u0443\u0436\u0435 \u0432 \u043d\u0435\u0439 \u0440\u0430\u0437\u043e\u0447\u0430\u0440\u043e\u0432\u0430\u043d.\u00bb<\/code><br \/>  <em>\u0420\u043e\u043c\u0430\u043d \u041c\u0438\u0445\u0430\u0439\u043b\u043e\u0432<\/em> <\/p><\/blockquote>\n<p>\u0415\u0449\u0451 \u0445\u043e\u0447\u0435\u0442\u0441\u044f \u0437\u0430\u043c\u0435\u0442\u0438\u0442\u044c, \u0447\u0442\u043e \u0434\u0430\u043b\u0435\u0435 \u0432\u0441\u0435 \u043f\u0440\u0438\u043c\u0435\u0440\u044b \u043a\u043e\u0434\u0430 \u0431\u0443\u0434\u0443\u0442 \u043f\u0440\u0438\u0432\u043e\u0434\u0438\u0442\u044c\u0441\u044f \u043d\u0430 <code>Haskell<\/code>. \u041d\u043e \u0432 \u043a\u043e\u043d\u0446\u0435 \u044f \u043f\u043e\u043a\u0430\u0436\u0443, \u043a\u0430\u043a \u043c\u043e\u0436\u043d\u043e \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0438\u0437 \u043d\u0438\u0445 \u043f\u043e\u0432\u0442\u043e\u0440\u0438\u0442\u044c \u043d\u0430 <code>Scala<\/code>. <\/p>\n<p>  <\/p>\n<h2 id=\"chto-takoe-hkd\">\u0427\u0442\u043e \u0442\u0430\u043a\u043e\u0435 HKD<\/h2>\n<p>  <\/p>\n<p>\u041a\u043e\u043d\u0435\u0447\u043d\u043e, \u043f\u0440\u0435\u0436\u0434\u0435, \u0447\u0435\u043c \u043f\u0438\u0441\u0430\u0442\u044c \u044d\u0442\u043e\u0442 \u0440\u0430\u0437\u0434\u0435\u043b, \u044f \u043f\u043e\u043b\u0435\u0437 \u0432 \u0438\u043d\u0442\u0435\u0440\u043d\u0435\u0442, \u0447\u0442\u043e\u0431\u044b \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0435\u0442\u044c, \u043a\u0430\u043a \u044d\u0442\u043e\u0442 \u0442\u0435\u0440\u043c\u0438\u043d \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u044e\u0442 \u0434\u0440\u0443\u0433\u0438\u0435 \u043b\u044e\u0434\u0438. \u0427\u0451\u0442\u043a\u043e\u0433\u043e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u044f \u043d\u0435 \u043d\u0430\u0448\u0451\u043b.<br \/>  \u0413\u0440\u0443\u0431\u043e \u0433\u043e\u0432\u043e\u0440\u044f, HKD \u2014 \u044d\u0442\u043e \u0442\u043e, \u0447\u0442\u043e \u043f\u0440\u0435\u0434\u043e\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u0434\u0435\u0440\u0436\u0430\u0442\u044c \u0432 \u043e\u0434\u043d\u043e\u043c \u0442\u0438\u043f\u0435 \u0434\u0430\u043d\u043d\u044b\u0445 \u0441\u0440\u0430\u0437\u0443 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u0438\u0439. \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u043d\u0430 \u043f\u0440\u0438\u043c\u0435\u0440\u044b.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-384284","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/384284","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=384284"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/384284\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=384284"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=384284"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=384284"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}