Skip to content

Instantly share code, notes, and snippets.

Avatar

Andy Georges itkovian

View GitHub Profile
View m.hs
messageSink success failure messageCount frequency = loop
where
loop = do
v <- await
case v of
Just n -> case n of
Right json -> do
Data.Conduit.yield (encodeNormalisedRsyslog json) $$ success
Data.Conduit.yield (SBS.pack "\n") $$ success
liftIO $ increaseCount (1, 0) messageCount frequency
View prs.py
from microbit import *
import random
import radio
bss = [0, 1, 2]
score = 0
radio.on()
radio.config(
power=4,
View Main.hs
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RankNTypes #-}
module Main where
--------------------------------------------------------------------------------
import Control.Applicative ((<$>), (<*>))
import Control.Concurrent.Chan
import Control.Concurrent.Extra
View gist:6ae1328a0933cfc32dc873a022eb26cb
handler :: MVar Int -> IO ()
handler s_interrupted = trace "Interrupt received" $ do
r <- readMVar s_interrupted
trace ("value was " ++ show r) $ modifyMVar_ s_interrupted (return . (+1))
{- this prints on the first SIGTERM:
Interrupt received
value was 0
@itkovian
itkovian / gpfs-get-inode-usage.hs
Created May 31, 2017
Retrieve inode usage for VO filesets from Elasticsearch and print out the relevant usage information
View gpfs-get-inode-usage.hs
#!/usr/bin/env stack
{- stack
--resolver nightly
--install-ghc
runghc
--package bloodhound
--package optparse-applicative
-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
View Aaaargh
f()
{
if (p)
{
// do something
}
else
{
// do something else
}
View gist:ae833bf62dbbcc8ba2ad
~~~~
filter {
mutate {
add_field => { "[@metadata][target_index]" => "logstash-%{+YYYY.MM.dd}" }
}
if [program] == "jube" {
mutate {
update => { "[@metadata][target_index]" => "longterm-%{+YYYY.Q}" }
}
}
View guessing.rs
extern crate rand;
use rand::Rng;
use std::cmp::Ordering;
use std::io;
fn main() {
let secret_number = rand::thread_rng().gen_range(1,101);
@itkovian
itkovian / gist:c03abe93bf3553f0a529
Created Jul 28, 2015
Installed GHC expressions from nixpkgs
View gist:c03abe93bf3553f0a529
➜ /Users/ageorges/nixpkgs git:(master) $ nix-store --gc --print-live | grep ghc
finding garbage collector roots...
determining live/dead paths...
/nix/store/0c0x6ikdd91xnv8ad5qg1cnjllcya6l1-ghc-7.4.2-x86_64-apple-darwin.tar.bz2.drv
/nix/store/0w52i4qmn9h3n9nh4az5qld25pfq80mg-ghc-7.8.4-src.tar.xz.drv
/nix/store/37d4r09fx6ipgp3kla9kpjr8krvqpnp6-ghc-7.10.1
/nix/store/3z09cx6hi7m0xpnjmm5c7pz35r1j3a29-ghc-7.8.4.drv
/nix/store/57w4xa43g7ilkdjd7mplrn8l3pvmyklf-ghc-paths-nix.patch
/nix/store/6bpp1dda46rv107j5zszhlv03gdbp90c-ghc-paths-0.1.0.9.tar.gz.drv
/nix/store/8qqqq11g317x8nc6js7vl72r320irchb-haskell-ghc-paths-0.1.0.9
View keybase.md

Keybase proof

I hereby claim:

  • I am Itkovian on github.
  • I am itkovian (https://keybase.io/itkovian) on keybase.
  • I have a public key whose fingerprint is 1B82 264B 2D1C 74DF 0703 6F6A B88B 1889 BCBC 7CD8

To claim this, I am signing this object:

You can’t perform that action at this time.