imalsogreg

{-# LANGUAGE ForeignFunctionInterface #-}
#include <bindings.dsl.h>
#include <opencv_generated.hpp>
module OpenCVRaw.Consts where
#strict_import
import Foreign.C
import Foreign.C.Types
#num CV_ADAPTIVESKINDETECTOR_MORPHING_METHOD_ERODE0
#num CV_ADAPTIVESKINDETECTOR_MORPHING_METHOD_ERODE_DILATE0
#num CV_ADAPTIVESKINDETECTOR_MORPHING_METHOD_ERODE_ERODE0

imalsogreg

# Package Information for pkg-config

prefix=/usr/local
exec_prefix=${prefix}
libdir=
includedir_old=${prefix}/include/opencv
includedir_new=${prefix}/include

Name: OpenCV
Description: Open Source Computer Vision Library

imalsogreg

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Heist.SpliceAPI

main :: IO ()
main = print $ runSplices baz

foo = do

imalsogreg

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Heist.SpliceAPI

main :: IO ()
main = print $ runSplices baz

foo = do

imalsogreg

module Main where

import qualified Data.Map as M
import Data.Map.Syntax

-- prints: Right (fromList [("blobz",10),("smootz",12)])

main = print . runMapSyntax M.lookup M.insert $ do
  foo
  mapK (++ "a") bar

imalsogreg

instance ISessionManager RedisSessionManager where

    --------------------------------------------------------------------------
    --load grabs the session from redis.
    load mgr@(RedisSessionManager (Just _) _ _ _ _   _  ) = return mgr
    load mgr@(RedisSessionManager _        _ _ _ rng con) = do
      res <- runMaybeT $ do
        (Payload x) <- MaybeT $ getPayload mgr
        cs <- hoistMaybe . hush $ S.decode x
        liftIO $ runRedis con $ do

imalsogreg

------------------------------------------------------------------------------
readRequestBodyHangIssue :: Test
readRequestBodyHangIssue =
  testCase "readRequestBody doesn't hang" assertReadRqBody
  where
    assertReadRqBody =
      do let hdl = readRequestBody 5000 >>= writeLBS
         res <- race
                (threadDelay 1000000)
                (runHandler Nothing (ST.get "" Map.empty) hdl appInit)

imalsogreg

cabal sandbox add-source ../io-streams
cabal sandbox add-source ../io-streams-haproxy
cabal sandbox add-source ../map-syntax
cabal sandbox add-source ../snap-server
cabal sandbox add-source ../snap-core
cabal sandbox add-source ../xmlhtml
cabal sandbox add-source ../snap-loader-static
cabal sandbox add-source ../snap-loader-dynamic
cabal sandbox add-source ../heist

imalsogreg

module Main where

import Data.List

import Codec.Picture
import qualified Data.Vector as V

r0             = 50     -- Core thickness
rEnd           = 200    -- Tape role end thickness (no effect?)
thick          = 1      -- Thickness of one sheet of tape

imalsogreg

module Main where

import Control.Applicative
import Control.Concurrent
import Control.Error
import Control.Monad
import Control.Monad.Trans (lift)
import qualified Data.ByteString as BS
import qualified Data.ByteString.Lazy as BSL
import qualified Data.Binary.Get as B