hasufell

instance Lift Version where
  lift (Version {..}) = [| Version {..} |]

instance Lift VUnit where
  lift (Digits w) = [| Digits w |]
  lift (Str t) = AppE <$> [| Str . T.pack |] <*> TH.lift (T.unpack t)

qq :: (Text -> Q Exp) -> QuasiQuoter
qq quoteExp' =
  QuasiQuoter

hasufell

#include <sys/types.h>
#include <dirent.h>
#include <stddef.h>
#include <stdio.h>
#include <stdlib.h>

int main() {
	DIR *dir = opendir("/home");
	if (readdir(dir) == NULL) {
		printf("d is NULL");

hasufell

#!/bin/sh

set -eu

SCRIPT_DIR="$(CDPATH="" cd -- "$(dirname -- "$0")" && pwd -P)"

cd "${SCRIPT_DIR}"

# install ghcup
if ! [ -e "${SCRIPT_DIR}"/.ghcup/bin/ghcup ] ; then

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"