munro

import re
import sys
import json
import itertools
from collections import Counter
from collections import defaultdict

SPLIT_MESSAGES = re.compile(r'\n.?\w{3} \w+ +\d+ \d+:\d+:\d+ \d+[\r\s]*\n')
MATCH_SIGNAL = re.compile(r'signal sender=(?P<sender>.*) -> dest=(?P<dest>.*) serial=(?P<serial>.*) path=(?P<path>.*) interface=(?P<interface>.*) member=(?P<member>.*)\n\s+string (?P<function>.*)\n\s+string (?P<params>.*)')
MATCH_METHOD_CALL = re.compile(r'method call sender=(?P<sender>.*) -> dest=(?P<dest>.*) serial=(?P<serial>.*) path=(?P<path>.*) interface=(?P<interface>.*) member=(?P<member>.*)\n\s+string (?P<function>.*)\n\s+string (?P<params>.*)')

munro

    webpack_config.entry.unshift(
        'webpack-dev-server/client?' + argv.root_url,
        'webpack/hot/dev-server'
    );
    webpack_config.plugins.unshift(
        new webpack.HotModuleReplacementPlugin()
    );
    webpack_config.devtool = '#source-map';
    webpack_config.pathInfo = true;

munro

var config = require('./config');

munro

{-|
>>> uriToFTPPort <$> parseURI "ftp://foo:[email protected]:50021/hello"
Just 50021
>>> uriToFTPPort <$> parseURI "ftp://foo:[email protected]/hello"
Just 21
>>> uriToFTPPort <$> parseURI "ftp://192.168.1.11/hello"
Just 21
-}
uriToFTPPort :: Num a => URI -> a
uriToFTPPort uri = port maybePort

munro

-- |
-- >>> runNetworkOverTCP testNetwork
-- "hello"
-- >>> runNetworkOverHTTP testNetwork
-- "hello"
-- >>> runNetworkInMemory testNetwork
-- "hello"
testNetwork = do
    userA <- createConnection
    userB <- createConnection

munro

{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE FunctionalDependencies #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE UndecidableInstances #-}
{-# LANGUAGE GADTs #-}

module Main where

import Control.Concurrent
import Control.Concurrent.STM

munro

#!/usr/bin/env python

from logentries import LogentriesHandler
import logging
import time

handler = LogentriesHandler(LOGENTRIES_TOKEN)

log = logging.getLogger('logentries')
log.addHandler(handler)

munro

module MyState where

import Control.Monad.State.Lazy

data MyState s a = MyState { state :: s, carry :: a } deriving Show
data MyMonadState s a = MyMonadState (s -> (MyState s a))

myGet :: MyMonadState s s
myGet = MyMonadState (\s -> (MyState s s))

munro

@property
@memoize
def db_connection():
    return DBConnection()

munro

In [3]: def foo(): yield 1; yield 2; return

In [4]: def foo(): yield 1; yield 2; return 3
  File "<ipython-input-4-e56b14727cad>", line 1
    def foo(): yield 1; yield 2; return 3
SyntaxError: 'return' with argument inside generator