codebje

with builtins; rec {
  cabalProjects = listToAttrs (if pathExists ./cabal.project
                  then projectParse
                  else [ { name = baseNameOf ./.; value = ./.; } ] );
  projectParse = let
    contents = readFile ./cabal.project;
    trimmed = replaceStrings ["packages:" " "] ["" ""] contents;
    packages = filter (x: isString x && x != "") (split "\n" trimmed);
    package = p: substring 0 (stringLength p - 1) p;
    paths = map (p: let p' = package p; in { name = p'; value = toPath (./. + "/${p'}"); } ) packages;

codebje

public <T> T streamQuery(String sql, Function<Stream<SqlRowSet>, ? extends T> streamer, Object... args) {
  return jdbcTemplate.query(sql, resultSet -> {
    final SqlRowSet rowSet = new ResultSetWrappingSqlRowSet(resultSet);
    final boolean parallel = false;

    // The ResultSet API has a slight impedance mismatch with Iterators, so this conditional
    // simply returns an empty iterator if there are no results
    if (!rowSet.next()) {
      return streamer.apply(StreamSupport.stream(Spliterators.emptySpliterator(), parallel));
    }

codebje

{ basePath ? ./.}:
with builtins; rec {
  cabalProjects = listToAttrs (if pathExists (basePath + "/cabal.project")
                  then projectParse
                  else [ { name = baseNameOf basePath; value = basePath; } ] );
  projectParse = let
    contents = readFile (basePath + "/cabal.project");
    trimmed = replaceStrings ["packages:" " "] ["" ""] contents;
    packages = filter (x: isString x && x != "") (split "\n" trimmed);
    package = p: substring 0 (stringLength p - 1) p;

codebje

#include <stdio.h>
#include <stdlib.h>
#include <pthread.h>

volatile char toggle = 1;

void *writer(void *unused) {
    for (;;) {
        toggle = 1;
        toggle = 2;

codebje

module Search_Deep where

import Data.Bits

data Fun = And | Add | Xor | Or  | Sub | Bus
data Shape = F Shape Shape | Var | Tok
data Expr a = C Fun (Expr a) (Expr a) | V a | T
data U = U
instance Show U where
    showsPrec _ U = ("?" ++)

codebje

FROM ubuntu:xenial

ENV DEBIAN_FRONTEND noninteractive

RUN rm -rf /var/lib/apt/lists/* && \
    apt-get update -q -q && \
    echo 'UTC' > /etc/timezone && \
    dpkg-reconfigure tzdata

COPY postfix_3.0.4-5ubuntu1_amd64.deb /root/

codebje

#!/usr/local/bin/stack runghc
import           Data.Char (toUpper)
import           Data.List (uncons)

ucFirst :: String -> String
ucFirst = maybe "" (\(a,b) -> toUpper a : b) . uncons

process :: String -> [String]
process s =
    let slug = mconcat $ map ucFirst $ words s

codebje

class Foo {
  Foo();
    Code:
       0: aload_0
       1: invokespecial #1                  // Method java/lang/Object."<init>":()V
       4: return

  public boolean isEven(java.lang.Integer);
    Code:
       0: aload_1

codebje

Set<String> results = jdbcStream.streamQuery("SELECT * FROM test_data", stream -> stream
    .map(row -> row.getString("entry"))
    .filter(s -> Character.isAlphabetic(s.charAt(0)))
    .collect(Collectors.toSet()));

codebje

command! -buffer -nargs=0 -bang GhcModImport call Autoimport(<bang>0)
function! Autoimport(force) "{{{
    let l:identifier = ghcmod#getHaskellIdentifier()
    let l:parts = split(l:identifier, '\.')
    " `ghc-mod sig` is available since v5.0.0.
    let l:cmd = ghcmod#build_command(['find', l:parts[-1]])
    let l:lines = split(ghcmod#system(l:cmd), '\n')
    if len(l:lines) >= 1
        let l:module = l:lines[0]
        let l:view = winsaveview()