syntheticsh

syntheticsh / parse.hs

Last active December 11, 2020 02:50

	{-# LANGUAGE LambdaCase #-}
	{-# LANGUAGE OverloadedStrings #-}

	module Lib where

	import Control.Applicative
	import Data.Aeson
	import Data.ByteString.Lazy (ByteString)
	import Data.Vector (Vector)

syntheticsh / new.php

Last active August 27, 2020 08:18

	<?php

	$withTrans = function($trans, $work): bool {
	if ($work()) {
	$trans->commit();
	return true;
	} else {
	$trans->rollback();
	return false;
	}

syntheticsh / rioMonad.hs

Last active November 21, 2019 15:29

trying Monadic actions inside RIO

	#!/usr/bin/env stack
	-- stack --resolver lts-14.2 script
	{-# LANGUAGE NoImplicitPrelude #-}
	{-# LANGUAGE OverloadedStrings #-}
	module Main (main) where

	import RIO
	import Control.Monad.Trans.Maybe

	newtype App = App {appLogFunc :: LogFunc}

syntheticsh / Cargo.toml

Created December 14, 2018 07:39

actix_test

	[package]
	name = "actix_play"
	version = "0.1.0"
	edition = "2018"

	[dependencies]
	actix = "0.7"
	actix-web = { version = "0.7.8", features = ["tls"] }
	futures = "0.1"
	serde = "1.0"

syntheticsh / init.php

Created October 30, 2018 08:02

[1c-bitrix] Инфоблок по коду

	<?php

	if (!function_exists("GetIBlockIDByCode")) {
	function GetIBlockIDByCode($ibCode, $ibType) {
	global $stackCacheManager;

	if (!CModule::IncludeModule("iblock")) {
	return false;
	}

syntheticsh / aync_hyper_post.rs

Last active August 13, 2018 10:32

	extern crate hyper;
	extern crate futures;
	extern crate tokio;

	use hyper::rt::{Future, Stream};
	use futures::future::select_all;
	use futures::future::join_all;
	use futures::future::select_ok;
	use std::thread;
	use std::error::Error;

syntheticsh / async_hyper.rs

Last active August 2, 2018 14:16

	extern crate hyper;
	extern crate futures;
	extern crate tokio;

	use hyper::{Client, Response, Body};
	use hyper::rt::{Future, Stream};
	use futures::future::join_all;

	fn main() {
	let client = Client::new();