gregwebs

module External where

import Language.Haskell.TH.Syntax
import Language.Haskell.TH.Lib

loadStringFromFile :: Q Exp 
loadStringFromFile = do
  let externalDependency = "external.txt"
  qAddDependentFile externalDependency
  s <- qRunIO $ readFile externalDependency

gregwebs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}

import Yesod
import Database.Persist
import Database.Persist.MongoDB

gregwebs

#!/bin/bash
DIR="$( cd "$( dirname "$0" )" && pwd )"
cd $DIR/..

name=`basename "$2"`

case $1 in
'start')
echo $ > ./tmp/$name.pid
exec $2 2>&1 1> ./log/$name.log

gregwebs

    def self.cached_method(meth)
      eval <<-CODE
        def #{meth}_with_cache
          return @#{meth} if @#{meth}
          result = #{meth}_without_cache
          @#{meth} ||= result
        end
      CODE
      alias_method_chain meth, :cache
    end