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

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

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

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

volatile char toggle = 1;

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

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

{ 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;