Skip to content

Instantly share code, notes, and snippets.

View imalsogreg's full-sized avatar

Greg Hale imalsogreg

View GitHub Profile
@imalsogreg
imalsogreg / ReddisSession.hs
Created July 10, 2014 15:19
Control.Error reduce nested cases
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
imalsogreg / mapK amnesia
Created June 4, 2014 19:15
map-syntax testing
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
imalsogreg / Try 2
Created June 4, 2014 14:20
SpliceAPI
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Heist.SpliceAPI
main :: IO ()
main = print $ runSplices baz
foo = do
@imalsogreg
imalsogreg / gist:8332cf1ee11d69568b25
Created June 4, 2014 13:38
Heist.SpliceAPI - try to break duplicate detection (in this case, duplicate IS detected)
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Heist.SpliceAPI
main :: IO ()
main = print $ runSplices baz
foo = do
# 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
imalsogreg / Consts.hsc
Created October 2, 2013 16:20
opencv-raw output of setup.py
{-# 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