mightybyte

FLASK:

#!/usr/bin/env python
# A github post-receive hook handler, runs some shell command on each HTTP POST to PORT.
# github-listener.py PORT 'SOME SHELL COMMAND'

import sys
from subprocess import *
from flask import Flask

mightybyte

------------------------------------------------------------------------------
-- | Renders the child nodes only if the request comes from an authenticated
-- user.
ifLoggedIn :: Splice Application
ifLoggedIn = do
    node <- getParamNode
    res <- lift $ requireUser (return []) (return $ childNodes node)
    return res

mightybyte

------------------------------------------------------------------------------
-- | Runs the parameter node's children and returns the resulting node list.
-- By itself this function is a simple passthrough splice that makes the
-- spliced node disappear.  In combination with locally bound splices, this
-- function makes it easier to pass the desired view into your splices.
runChildren :: Monad m => Splice m
runChildren = runNodeList . X.childNodes =<< getParamNode

 
------------------------------------------------------------------------------

mightybyte

#include <stdio.h>
#include <string.h>

struct node {
  char c;
  node * left;
  node * right;
};

mightybyte

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Numeric
import Data.Bits
import Data.List
import Text.Blaze
import Text.Blaze.Html5 hiding (map)
import qualified Text.Blaze.Html5 as H
import qualified Text.Blaze.Html5.Attributes as A

mightybyte

bindStrict :: Monad m => Splice m
bindStrict = do
    node <- getParamNode
    cs <- runChildren
    maybe (return ()) (add cs)
          (X.getAttribute bindAttr node)
    return []

  where
    add cs nm = modifyTS $ bindSplice nm $ do

mightybyte

{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}

module Snap.Snaplet.Internal.Lensed where

import Control.Applicative
import Control.Monad
import Control.Monad.Trans
import Data.Lens.Lazy
import Data.Functor

mightybyte

class Monad m => MonadSnapletState s m | m -> s where
    getSnapletState :: m (Snaplet s)
    putSnapletState :: (Snaplet s) -> m ()


modifySnapletState :: (MonadSnapletState s m) => (Snaplet s -> Snaplet s) -> m ()
modifySnapletState f = do
    s <- getSnapletState
    putSnapletState (f s)

mightybyte

{-# LANGUAGE BangPatterns      #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards   #-}

module Snap.Snaplet.Auth.Backends.MongoDB
  ( initMongoAuth
  ) where

------------------------------------------------------------------------------
import           Control.Arrow

mightybyte

routes = [ ("login", with auth loginHandler)
         , ("register", with auth registerHandler)
         , ("logout", with auth logout >> redirect ".")
         ]

passParam paramName = maybe pass return =<< getParam paramName

loginHandler = do
    username <- passParam "username"
    password <- passParam "password"