soenkehahn

#!/usr/bin/env bash
cabal configure && cabal build && cabal haddock --hyperlink-source \
                                    --html-location='/package/$pkg-$version/docs' \
                                    --contents-location='/package/$pkg'
S=$?
if [ "${S}" -eq "0" ]; then
    cd "dist/doc/html"
    DDIR="${1}-${2}-docs"
    cp -r "${1}" "${DDIR}" && tar -c -v -z --format=ustar -f "${DDIR}.tar.gz" "${DDIR}"
    CS=$?

soenkehahn

let
  filterHaskellSource = builtins.filterSource (path: type:
    type != "unknown" &&
    baseNameOf path != ".git" &&
    baseNameOf path != "result" &&
    baseNameOf path != "dist");
in
{ pkgs ? import <nixpkgs> { }
, src ? filterHaskellSource ./.
}:

soenkehahn

{-# LANGUAGE DataKinds, TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}

module Kraken.Daemon where


import           Control.Monad.Trans.Either
import           Data.Proxy
import           Network.Wai
import           Network.Wai.Handler.Warp.Run

soenkehahn

module Main

data Token : Type where
  C : String -> Token
  I : Token
  S : Token
infixr 9 :>

instance Show Token where
  show t = case t of

soenkehahn

module Main where

import           Data.Map (insert)
import           Reflex.Dom

main :: IO ()
main = do
  mainWidget $ el "div" $ do
    value <- _textArea_input <$> textArea def

soenkehahn

flags: {}

packages:
  - location: ./.
  - location: /home/shahn/src/servant
    subdirs:
      - servant
      - servant-client
    extra-dep: true
  - location: /home/shahn/src/crdt-tree-vector

soenkehahn

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE InstanceSigs #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE UndecidableInstances #-}

module Servant.Server.UsingConfigSpec where

soenkehahn

package shahn.test;

import java.util.function.BiFunction;
import java.util.function.Function;

public class Fix<X, Y> {
	
	Function<X, Y> result;

	public static <A, B> Function<A, B> fix(BiFunction<Function<A, B>, A, B> f) {

soenkehahn

diff --git a/servant-docs/CHANGELOG.md b/servant-docs/CHANGELOG.md
index d40dc68..44ce069 100644
--- a/servant-docs/CHANGELOG.md
+++ b/servant-docs/CHANGELOG.md
@@ -1,8 +1,3 @@
-0.7
----
-
-* Use `throwError` instead of `throwE` in documentation
-

soenkehahn

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}

import           Data.Typeable
import           GHC.TypeLits
import           Servant.API
import           Test.Hspec