Oleg Tsybulskyi alogic0

Actual

N	Name	Description
1	Facebook	Haxl - Haskell library that simplifies access to remote data, such as databases or web-based services
2	Barclays Capital	In-House Trading software
3	Standard Chartered Bank	In-House Trading software
4	Tsuru Capital	Trading software
5	Better	Online education platform
6	Galois, Inc	various R&D projects

ghcjs-boot --dev --ghcjs-boot-dev-branch ghc-8.0 --shims-dev-branch ghc-8.0 step2 min (max 3 4) 5

src/Reflex/Dom/Internal.hs:224:28-37: error:
    * Expecting one more argument to `SpiderHost'
      Expected kind `* -> *', but `SpiderHost' has kind `* -> * -> *'
    * In the second argument of `HasPostGui', namely `SpiderHost'
      In the instance declaration for
 `HasPostGui Spider SpiderHost SpiderHost'

	когда пришёл, угомонился
	себе тихонечко лежишь
	тогда и счастье привалится
	и станет радостнее жить

	import socket
	s = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
	s.bind(('127.0.0.1', 1234))
	s.listen(10)
	while True:
	conn, addr = s.accept()
	while True:
	data = conn.recv(1024)
	if not data: break
	conn.send(data)

	-- source: http://www.garrisonjensen.com/2015/05/13/haskell-programs-are-lies.html

	import qualified Data.Set as PQ

	primes :: [Integer]
	primes = 2:sieve [3,5..]
	where
	sieve (x:xs) = x : sieve' xs (insertprime x xs PQ.empty)

	sieve' (x:xs) table

	import Text.ParserCombinators.Parsec
	import Text.ParserCombinators.Parsec.Expr
	import qualified Text.ParserCombinators.Parsec.Token as P
	import Text.ParserCombinators.Parsec.Language
	import Control.Monad (liftM)

	lexer = P.makeTokenParser emptyDef

	parens = P.parens lexer
	natural = P.natural lexer

	-- source https://gist.github.com/ali-abrar/6cdf28d6fb9c3dbe25fb
	import Control.Monad.IO.Class
	import GHCJS.DOM (webViewGetDomDocument)
	import GHCJS.DOM.Document (getBody)
	import GHCJS.DOM.Element (keyDown)
	import GHCJS.DOM.EventM (on, preventDefault)

	import Reflex.Dom

	main :: IO ()

	-- source https://gist.github.com/ali-abrar/2a52593f3a391d82c40f439d4894f017
	{-# LANGUAGE ScopedTypeVariables, RankNTypes #-}
	import Reflex.Dom
	import Data.Monoid ((<>))
	import Data.List (isPrefixOf)

	main :: IO ()
	main = mainWidgetWithHead headTag bodyTag

	headTag :: MonadWidget t m => m ()

	-- source https://gist.github.com/ali-abrar/47333e623b978d0472c2
	{-# LANGUAGE ScopedTypeVariables #-}
	import Reflex.Dom
	import GHCJS.DOM.CanvasRenderingContext2D (putImageData, setFillStyle, fillRect)
	import GHCJS.DOM.HTMLCanvasElement (getContext)
	import GHCJS.DOM.ImageData (newImageData')
	import Control.Monad.IO.Class (liftIO)
	import GHCJS.DOM.Types (CanvasStyle(..), CanvasRenderingContext2D(..), toJSString, castToHTMLCanvasElement)
	import GHCJS.Marshal (toJSVal)
	import Data.Time (getCurrentTime)

	-- source https://gist.github.com/ali-abrar/bca8f372b3ca39317f86/
	{-# LANGUAGE JavaScriptFFI #-}

	import Reflex.Dom
	import qualified Data.Text as T
	import Data.Monoid
	import GHCJS.Types
	import GHCJS.Foreign
	import Control.Monad.IO.Class
	import Control.Monad