duairc

import Control.Applicative
import Data.Attoparsec
import Data.IORef
import System.IO.Unsafe

------------------------------------------------------------------------------
wouldSucceed :: Parser a -> Parser Bool
wouldSucceed p = do
    result <- return $! unsafePerformIO (newIORef False)
    (do

duairc

#!/bin/sh

clean () {
    perl -pe 's/(\([si]\)\s*)+//' | tr '"' ' ' | awk '{$1=""; print $0}' | xargs echo
}

subset () {
    python /usr/share/googlefontdirectory-tools/tools/subset/subset.py --subset=latin+latin-ext+greek+greek-ext+cyrillic+cyrillic-ext --nmr --null --roundtrip --script "$1" "$2"
}

duairc

// http://www.w3.org/TR/html5/tabular-data.html#the-table-element

@mixin first-row() {
    & >,
    > thead >,
    > tbody:first-child >,
    > caption:first-child + tbody >,
    > caption:first-child ~ colgroup + tbody >,
    > colgroup:first-child + tbody >,
    > colgroup:first-child ~ colgroup + tbody >,

duairc

class Method
    def memoize!(time = nil)
        name = self.name
        owner = self.owner
        method = self.to_proc
        self.unbind
        owner.send(:define_method, name) do |*args, &block|
            @results ||= {}
            if !@time || (time && @time + time < Time.now)
                result = method.call(*args, &block)

duairc

{-# LANGUAGE RankNTypes #-}

import Control.Lens hiding (lens)
import qualified Control.Lens as L (lens)
import Data.Bifunctor
import Data.Functor.Alt


------------------------------------------------------------------------------
split

duairc

{ lib ? null, ... }:

let

  net = {
    ip = {

      # add :: (ip | mac | integer) -> ip -> ip
      #
      # Examples:

duairc

{-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE ConstraintKinds #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE NoStarIsType #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}