erantapaa

module Foo where

-- This is a translation to Haskell of parts of the paper
-- "A Schemer's View of Monads" by Adam C. Foltzer & Daniel P. Friedman:
--
-- https://cgi.soic.indiana.edu/~c311/lib/exe/fetch.php?media=manymonads.pdf

import Control.Monad.State

-- `Tree a` is a way of describing only those S-exps which are trees

erantapaa

{- Simple pretty printer for the AST created by Language.Haskell.Exts.
 -
 - Usage: program source.hs
 -
 -}

import qualified Language.Haskell.Exts as E
import Language.Haskell.Exts.Parser (ParseResult(..))
import Data.List
import System.Environment

erantapaa

Some notes on building hl (the haskell.org website) on an Unbuntu box.

1. Follow the instructions at https://www.stackage.org/install#ubuntu to install the GHC tool chain.

2. Install the following packages:

   sudo apt-get install -y libicu-dev

3. Run:

erantapaa

#!/usr/bin/perl

use POSIX qw(strftime);

$| = 1;

sub annotate_handle {
  my ($handle) = @_;
  my $start = time();
  while (<$handle>) {

erantapaa

#!/usr/bin/env python
#
# Provision a static lighttpd server in $HOME/.lighttpd/config-<port>

import os
import re
import sys
from os.path import expanduser

CONF_TEMPLATE='''

erantapaa

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE DeriveGeneric #-}

module Lib
where

import Data.Aeson
import GHC.Generics (Generic)
import Data.Stringable

erantapaa

-- Example of using the Rakhana libraries.

-# LANGUAGE NoMonomorphismRestriction #-}

module Foo
where

import Data.Rakhana
import Control.Monad.Trans (liftIO)
import qualified Data.ByteString.Char8 as B

erantapaa

1. Download and build the newest haddock. The build instructions are in README.md.

   git clone https://github.com/haskell/haddock.git cd haddock

   cabal sandbox init cabal sandbox add-source haddock-library cabal sandbox add-source haddock-api cabal install --dependencies-only

erantapaa

module Misc
  ( withOutputTo
  ) where

import System.IO
import GHC.IO.Handle
import Control.Exception

-- | Run an IO action with stdout redirected to a file.
-- Restores stdout upon completion of the action.

erantapaa

module SplitFile
    ( splitFile, splitFileOn, splitHandle, splitHandleOn, findNext, findNewLine
    ) where

import System.IO
import qualified Data.ByteString.Char8 as B

splitFileOn :: (Char -> Bool) -> Int -> FilePath -> IO [Integer]
splitFileOn find parts path = do
  h <- openBinaryFile path ReadMode