hasufell

{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE EmptyDataDecls #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE UndecidableInstances #-}
{-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE TypeInType #-}

hasufell

{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE EmptyDataDecls #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE UndecidableInstances #-}
{-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE TypeInType #-}

hasufell

\documentclass{article}
%include polycode.fmt
\begin{document}

> {-# LANGUAGE DeriveDataTypeable #-}
> {-# LANGUAGE EmptyDataDecls #-}
> {-# LANGUAGE QuasiQuotes #-}
> {-# LANGUAGE TemplateHaskell #-}
> {-# LANGUAGE TypeFamilies #-}
> {-# LANGUAGE DataKinds #-}

hasufell

data CapturedProcess = CapturedProcess {
    _exitCode :: ExitCode
  , _stdOut   :: L.ByteString
  , _stdErr   :: L.ByteString
} deriving (Eq, Show)

makeLenses ''CapturedProcess

readFd :: Fd -> IO L.ByteString

hasufell

{-# LANGUAGE DataKinds             #-}
{-# LANGUAGE DeriveGeneric         #-}
{-# LANGUAGE FlexibleContexts      #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TemplateHaskell       #-}
{-# LANGUAGE TypeFamilies          #-}

module Types.JSON where

import           Data.Aeson

hasufell

{-# LANGUAGE DeriveGeneric     #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}

-- TODO: handle SIGTERM, SIGUSR
module GHCup where

import Control.Exception.Safe
import Data.Foldable

hasufell

#!/usr/bin/env bash

set -eu

status_message() {
    printf "\\033[0;32m%s\\033[0m\\n" "$1"
}

error_message() {
    printf "\\033[0;31m%s\\033[0m\\n" "$1"

hasufell

module Foo where

import Control.Monad.IO.Class
import Control.Monad.Trans.Resource
import Data.ByteString (ByteString)
import Data.ByteString.Unsafe
import Data.Functor
import Data.Word8
import Foreign.ForeignPtr
import Foreign.ForeignPtr.Unsafe

hasufell

package sort

import (
	"context"
	"fmt"
)

// Merge too already sorted and deduplicated lists.
func MergeLists(l []int, r []int) []int {
	n := []int{}

hasufell

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE LiberalTypeSynonyms #-}

module MyOptics where

import Optics