schell

{-# LANGUAGE DataKinds             #-}
{-# LANGUAGE FlexibleInstances     #-}
{-# LANGUAGE ScopedTypeVariables   #-}
{-# LANGUAGE TypeFamilies          #-}
{-# LANGUAGE TypeOperators         #-}
{-# LANGUAGE TypeSynonymInstances  #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings     #-}
module Servant.Upload where

schell

precision highp float;
precision highp int;

attribute vec2 position;
attribute vec4 color;
attribute vec2 uv;
attribute vec3 bez;
attribute vec2 bezuv;
attribute vec2 next;
attribute vec2 previous;

schell

#extension GL_OES_standard_derivatives : enable

precision highp float;
precision highp int;

varying vec4 fcolor;
varying vec2 fuv;
varying vec3 fbez;
varying vec2 fbezuv;

schell

{-# LANGUAGE GADTs               #-}
{-# LANGUAGE FlexibleContexts    #-}
{-# LANGUAGE TypeOperators       #-}
{-# LANGUAGE DataKinds           #-}
{-# LANGUAGE RankNTypes          #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE LambdaCase          #-}
module Main where

import Control.Monad.Freer

schell

GET /

Authentication

Clients must supply the following data

Response:

schell

While compiling conduit-extras ghc warns me that

Data/Conduit/Binary.hs:376:27: Warning:
    In the use of ‘S.breakByte’ (imported from Data.ByteString):
    Deprecated: "It is an internal function and should never have been exported. Use 'break (== x)' instead. (There are rewrite rules that handle this special case of 'break'.)"

Data/Conduit/Binary.hs:425:28: Warning:
    In the use of ‘inlinePerformIO’
    (imported from Data.ByteString.Internal):
 Deprecated: "If you think you know what you are doing, use 'unsafePerformIO'. If you are sure you know what you are doing, use 'unsafeDupablePerformIO'. If you enjoy sharing an address space with a malevolent agent of chaos, try 'accursedUnutterablePerformIO'."

schell

<link rel="import" href="../polymer/polymer.html">

<polymer-element name="my-element">

  <template>
    <style>    
      :host {
        position: absolute;
        width: 100%;
        height: 100%;

schell

{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE FlexibleContexts #-}
module Main where

import Data.Time.Clock
import Control.Applicative
import Control.Monad
import Control.Monad.Identity
import System.Exit
import System.Environment

schell

~/C/h/haste-compiler(ghc-7.8-haste-boot) haste-boot --local
Creating package directory.
ghc-pkg --no-user-package-db --global-package-db=/Users/schell/.haste/packages update libraries/rts.pkg
Reading package info from "libraries/rts.pkg" ... done.
ghc-pkg --no-user-package-db --global-package-db=/Users/schell/.haste/packages update - --force
Reading package info from stdin ... done.
Cabal-1.18.1.3: Warning: library-dirs: /Users/schell/.haste/libraries/lib/Cabal doesn't exist or isn't a directory
Cabal-1.18.1.3: Warning: library-dirs: /Users/schell/.haste/libraries/lib/Cabal doesn't exist or isn't a directory
Cabal-1.18.1.3: dependency "array-0.5.0.0-8a8df4a1c1e3bf2f33e6357d6a83003a" doesn't exist (ignoring)
Cabal-1.18.1.3: dependency "base-4.7.0.0-c4013aeda9e32c50083c0bb3acc4040c" doesn't exist (ignoring)

schell

    let vs = [ -1,  1, -1 -- Front face
             ,  1,  1, -1
             , -1, -1, -1
             ,  1, -1, -1
             , -1,  1,  1 -- Back face
             ,  1,  1,  1
             , -1, -1,  1
             ,  1, -1,  1
             ]