Skip to content

Instantly share code, notes, and snippets.

View sigrlami's full-sized avatar

Sergey B sigrlami

63 followers · 29 following
View GitHub Profile
@sigrlami
sigrlami / ab.md
Last active March 4, 2022 14:40
List of companies using Haskell https://haskellcosm.com

WARNING This list outdated, for the up to date version visit https://haskellcosm.com

List of companies that use Haskell in Production

Types of work:

  • RD - research&development
  • PR - product
  • IP - in-house product
  • CO - consulting
@sigrlami
sigrlami / 0_reuse_code.js
Last active August 29, 2015 14:17
Here are some things you can do with Gists in GistBox.
// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console
@sigrlami
sigrlami / standalone.xml
Created May 11, 2015 08:35
OpenShift WildFly config without clustering
<?xml version='1.0' encoding='UTF-8'?>
<server xmlns="urn:jboss:domain:2.2">
<extensions>
<extension module="org.jboss.as.clustering.infinispan"/>
<extension module="org.jboss.as.clustering.jgroups"/>
<extension module="org.jboss.as.connector"/>
<extension module="org.jboss.as.deployment-scanner"/>
<extension module="org.jboss.as.ee"/>
<extension module="org.jboss.as.ejb3"/>
@sigrlami
sigrlami / SharedTodos.hs
Last active April 14, 2016 20:49
Example of HAXL multiple user request over multiple datasources (todos)
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE StandaloneDeriving #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TypeFamilies #-}
import Control.Monad
import Data.Hashable
import Data.Typeable
@sigrlami
sigrlami / ring-compojure-exp.clj
Created March 25, 2017 02:11
(defroutes app-routes
;; Customers
(context "/customer" []
(GET "/list" [] (-> get-customers
(restrict {:handler {:and [authenticated-user
(user-can "manage-customers")]}
:on-error unauthorized-handler})))
(POST "/customer" [] create-customer)
(context "/:id" [id]
(restrict
@sigrlami
sigrlami / ring-compojure-exp.clj
Created March 25, 2017 02:11
(defroutes app-routes
;; Customers
(context "/customer" []
(GET "/list" [] (-> get-customers
(restrict {:handler {:and [authenticated-user
(user-can "manage-customers")]}
:on-error unauthorized-handler})))
(POST "/customer" [] create-customer)
(context "/:id" [id]
(restrict
@sigrlami
sigrlami / ServantFreeEffect.hs
Last active July 26, 2017 21:35
-- Make use of freer-effects, https://hackage.haskell.org/package/freer-effects
--
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeOperators #-}
import Control.Monad.Freer as FF
import Control.Monad.Freer.Exception as FF
import Control.Monad.Freer.Reader as FF
@sigrlami
sigrlami / keybase.md
Created February 6, 2019 12:32

Keybase proof

I hereby claim:

  • I am sigrlami on github.
  • I am sigrlami (https://keybase.io/sigrlami) on keybase.
  • I have a public key ASDv1gwKwMTbHYpBdYFj2TXDdxUEKqQkKk1LP43cdiJ5vwo

To claim this, I am signing this object:

@sigrlami
sigrlami / lenses.csv
Last active February 11, 2019 13:19
List of Manufactured Lenses with optical data
We can make this file beautiful and searchable if this error is corrected: It looks like row 10 should actually have 17 columns, instead of 4. in line 9.
id,Format,Manufacturer,Model,Release Year,MSRP,Weight,Length,Max Diameter,Max Aperture,EFL,Zoom,Stabilized,Cinema,Variety,Designed In,Made In
1,Full-Frame,Canon,EF 14mm f/2.8L II USM,2007,2099,645,93.98,78.74,2.8,14,0,0,0,Ultra Wide Angle,Japan,Japan
2,Full-Frame,Canon,CN-E 14mm T3.1 L F,2013,5220,1200,93.98,118.364,3.1,14,0,0,1,Ultra Wide Angle,Japan,Japan
3,Full-Frame,Canon,TS-E 17mm f/4L Tilt-Shift,2009,2149,820,106.68,88.9,4,17,0,0,0,Tilt Shift,Japan,Japan
4,Full-Frame,Canon,EF 20mm f/2.8 USM,1992,539,405,70.612,77.47,2.8,20,0,0,0,Ultra Wide Angle,Japan,Japan
5,Full-Frame,Canon,EF 24mm f/2.8 IS USM,2012,599,281,55.626,68.326,2.8,24,0,1,0,Wide Angle,Japan,Japan
6,Full-Frame,Canon,EF 24mm f/1.4L II USM,2008,1549,650,86.868,83.566,1.4,24,0,0,0,Wide Angle,Japan,Japan
7,Full-Frame,Canon,TS-E 24mm f/3.5L II Tilt-Shift,2009,1899,780,106.934,88.392,3.5,24,0,0,0,Tilt Shift,Japan,Japan
8,Micro 4/3,Olympus,M.Zuiko Digital 17mm f/1.8,2013,349,120,35.5,57.5,1.8,17,0,0,0,Normal,Japan,
9,Micro 4/3,Olympus,M.Zuiko Digita
@sigrlami
sigrlami / tooling.md
Last active February 10, 2020 11:34
Factom tooling (SDKs, libraries)