AZ
камон, неиспользуемые импорты в новичковом коде это дефолт, не надо до этого докапываться
Пойти шоле на питоне забацать
Думаю там поменьше выйдет
Size: a a a
2020 March 06
𝛈µ
так хаскель - авоид саксес эт ол костс
А скала?
AZ
Пойти шоле на питоне забацать
Думаю там поменьше выйдет
Думаю там поменьше выйдет
забацай, со сваггером ток, сравним
p
Ок
AZ
как по мне 30 строк это норм, импорты офк не считаем
𝛈µ
Что я не вижу разницы между ссылочно-прозрачным ио и не ссылочно прозрачным
Она есть
𝛈µ
Ссылочно-прозрачное легче рефакторить
p
забацай, со сваггером ток, сравним
Напиши ток что делает твой код, а то я его не понимаю
p
Ссылочно-прозрачное легче рефакторить
Я это уже слышал
AZ
Напиши ток что делает твой код, а то я его не понимаю
type UserAPI = "users" :> Get '[JSON] [User]
:<|> "albert" :> Get '[JSON] User
:<|> "isaac" :> Get '[JSON] Userобъявляются 3 апихи по соответствующим урлам
𝛈µ
Я это уже слышал
Осталось понять
𝛈µ
Дебилы, блядь
AZ
isaac :: User
isaac = User "Isaac Newton" 372 "isaac@newton.co.uk" (fromGregorian 1683 3 1)
albert :: User
albert = User "Albert Einstein" 136 "ae@mc2.org" (fromGregorian 1905 12 1)
users :: Handler [User]
users = liftIO getPersonsреализации хендлеров
AZ
server :: Server API
server = swaggerSchemaUIServer swaggerDoc :<|> users :<|> pure albert :<|> pure isaacрегистрация хендлеров
p
Дебилы, блядь
?
AZ
type API = SwaggerSchemaUI "swagger-ui" "swagger.json"
:<|> UserAPI
swaggerDoc :: Swagger
swaggerDoc = toSwagger (Proxy :: Proxy UserAPI)
& info.title .~ "Operden API"
& info.version .~ "1.0.0"
& info.description ?~ "This is an API that perform some operen actions"регистрация сваггера
λ
как по мне 30 строк это норм, импорты офк не считаем
Там же большинство импортов лишние
AZ
someFunc :: IO ()
someFunc = do
print $ foo "Running"
--_ <- m
print $ foo "Inserted"
hFlush stdout
run 8081 appтут вроде все понятно
𝛈µ
type UserAPI = "users" :> Get '[JSON] [User]
:<|> "albert" :> Get '[JSON] User
:<|> "isaac" :> Get '[JSON] Userобъявляются 3 апихи по соответствующим урлам
Что там скала-то?