jliuhtonen

module Main where

import Data.Char (toLower)
import Data.Tuple (swap)
import Data.List (foldl')
import qualified Data.Set as Set
import Control.Monad (guard)
import System.IO

type Pair = (String, String)

jliuhtonen

// Example of registering javax.injection annotated classes to Jersey 2's HK2 instance ServiceLocator
// Uses https://code.google.com/p/reflections/
public class RestApplication extends ResourceConfig {

    @Inject
    public RestApplication(ServiceLocator serviceLocator) {
        packages("rest.resource");
        ServiceLocatorUtilities.addClasses(serviceLocator, findServiceSingletons());
    }

jliuhtonen

package my.rest.api

import javax.servlet.http.HttpServletResponse;
import javax.ws.rs.container.ContainerRequestContext;
import javax.ws.rs.container.ContainerResponseContext;
import javax.ws.rs.container.ContainerResponseFilter;
import java.io.IOException;
import java.util.Optional;

public class OptionalResponseFilter implements ContainerResponseFilter {

jliuhtonen

print100' i
    | i >= 100  = [] 
    | otherwise = (100 - i) : print100' (i + 1)

print100 = mapM_ (putStrLn . show) $ print100' 0

jliuhtonen

module Main where

import Prelude hiding (mapM_)
import Data.List
import Data.Char
import Data.Foldable (mapM_)
import qualified Data.Set as S
import qualified Data.Tuple as T (swap)

characters = "abcdefghijklmnopqrstuvwxyzåäö"

jliuhtonen

module Reader where


type Reader ctx a = Reader (ctx -> a)


unit: a -> Reader any a
unit x =
  Reader (\_ -> x)

jliuhtonen

Keybase proof

I hereby claim:

• I am jliuhtonen on github.
• I am jliuhtonen (https://keybase.io/jliuhtonen) on keybase.
• I have a public key ASBc_WldAjBPWh0UVaLsxpk2MFvE59CCB5AohDrgiiBtcAo

To claim this, I am signing this object: