itkovian

~~~~
filter {
        mutate {
            add_field => { "[@metadata][target_index]" => "logstash-%{+YYYY.MM.dd}" }
        }
        if [program] == "jube" {
            mutate {
                update => { "[@metadata][target_index]" => "longterm-%{+YYYY.Q}" }
            }
        }

itkovian

f() 
  {
  if (p) 
    {
    // do something
    }
  else
    {
    // do something else
    }

itkovian

#!/usr/bin/env stack
{- stack
    --resolver nightly
    --install-ghc
    runghc
    --package bloodhound
    --package optparse-applicative
-}
{-# LANGUAGE DeriveGeneric     #-}
{-# LANGUAGE OverloadedStrings #-}

itkovian

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

{-# LANGUAGE FlexibleContexts  #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RankNTypes #-}

module Main where

--------------------------------------------------------------------------------
import           Control.Applicative          ((<$>), (<*>))
import           Control.Concurrent.Chan
import           Control.Concurrent.Extra

itkovian

from microbit import *
import random
import radio

bss = [0, 1, 2]
score = 0

radio.on()
radio.config(
    power=4,

itkovian

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