thsutton

module Main where

import Control.Applicative
import Data.Char
import Data.List
import Options.Applicative
import Options.Applicative.Types

-- * Options parsers

thsutton

module Main where

import Control.Applicative
import Data.Char
import Data.List
import Options.Applicative
import Options.Applicative.Types

-- * Options parsers

thsutton

<?php
require_once __DIR__.'/vendor/autoload.php';

use Symfony\Component\HttpFoundation\Request;
use Symfony\Component\Routing\Route;
use Symfony\Component\Routing\RouteCollection;
use Symfony\Component\Routing\Matcher\UrlMatcher;
use Symfony\Component\Routing\RequestContext;
use Symfony\Component\HttpFoundation\Response;
use Symfony\Component\HttpKernel\HttpKernel;

thsutton

{-# LANGUAGE NoMonomorphismRestriction #-}
import Data.Conduit
import qualified Data.Conduit.List as CL

branch :: Resource m
       => Sink lIn m lOut
       -> Sink rIn m rOut
       -> Sink (Either lIn rIn) m (lOut, rOut)
branch (Sink mlsink) (Sink mrsink) = Sink $ do
    lsink <- mlsink