Skip to content

Instantly share code, notes, and snippets.

View dpwiz's full-sized avatar
👁️‍🗨️
🌈

Alexander Bondarenko dpwiz

👁️‍🗨️
🌈
View GitHub Profile
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Web.Scotty
import Control.Monad
import Control.Monad.Trans
import qualified Control.Monad.Trans.Resource as RT
import Control.Concurrent (threadDelay)
module Main where
import System.Environment (getArgs)
import Control.Monad
import qualified Data.ByteString.Lazy.Char8 as BSL
import Network.AMQP
connect = do
@dpwiz
dpwiz / pika_logger.py
Created October 18, 2012 13:24
log all stuff to rabbitmq
import logging
import pika
from myjson import json_dumps
LOGGING = {
'version': 1,
'handlers': {
'amqp': {
'()': 'utils.log.PikaHandler',
@dpwiz
dpwiz / PGSParseable.hs
Created October 29, 2012 09:39
Generic attoparsec-parseable fields for postgresql-simple with a hstore example.
{-# LANGUAGE OverloadedStrings, ScopedTypeVariables, TypeSynonymInstances, FlexibleInstances, UndecidableInstances #-}
module PGSParseable where
import qualified Data.Attoparsec.Text as AP
import Data.Typeable (Typeable)
import qualified Data.Text as T
import Data.Text (Text)
import Data.Text.Encoding (decodeUtf8)
@dpwiz
dpwiz / pika_rpc.py
Created October 30, 2012 13:33
Monads are hard. Oh, the irony!
"""
Or should i use bass-ackwards definitions?.. http://pika.readthedocs.org/en/0.9.6/examples/comparing_publishing_sync_async.html
"""
import pika
pika_conn = 'amqp://guest:guest@localhost:5672/%2F'
def call(uri, service, method, **query):
-- * Stuff
import Database.SQL (connectDB, dbquery)
import Database.Cache (cacheGet, cacheSet)
import Network.SOAP (soap)
import Control.Monad (guard)
type Oven = String
type Product = String
\documentclass{article}
\usepackage[utf8]{inputenc}
\title{42}
\author{Jane Doe}
\date{June 2011}
\usepackage{natbib}
\usepackage{graphicx}
@dpwiz
dpwiz / gist:4148047
Last active October 13, 2015 05:38
haskell.sublime-project
{
"folders":
[
{
"path": "",
"folder_exclude_patterns": ["cabal-dev", "dist"]
}
],
"build_systems":
[
import Graphics.UI.Gtk
main :: IO ()
main = do
initGUI
window <- windowNew
button <- buttonNew
set window [ containerBorderWidth := 10
, containerChild := button ]
set button [ buttonLabel := "Hello World" ]
#!../venv/bin/python
import pika, pprint, json
import time
import logging
logging.basicConfig()
def jsonlog(channel, method_frame, header_frame, body):
msg = json.loads(body)