chrisdone

hsdns:                            ADNS
hsdns:                            ADNS.Base
hsdns:                            ADNS.Endian
hsdns:                            ADNS.Resolver
cv-combinators:                   AI.CV.ImageProcessors
HOpenCV:                          AI.CV.OpenCV.CV
HOpenCV:                          AI.CV.OpenCV.CxCore
HOpenCV:                          AI.CV.OpenCV.HighGui
HOpenCV:                          AI.CV.OpenCV.Types
hnn:                              AI.HNN.Layer

chrisdone

;; A function for cycling through Haskell import lists.
;; Copyright (C) 2010 Chris Done <chrisdone@gmail.com>

;; The cycling step will stop once at the last import list so
;; that it is easy to add a new import list.

;; This module works completely independently of any libraries
;; (including haskell-mode).

;; Exports three interactive functions:

chrisdone

;; A function for observing the currently installed Haskell
;; packages.
;; Copyright (C) 2010 Chris Done <chrisdone@gmail.com>

;; This module is intended for Elisp programmers to use in other
;; packages that involve inspecting the currently installed
;; packages and modules.

;; Example usage:
;;

chrisdone

bash-3.2$ ./read
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

chrisdone

{-# OPTIONS -Wall #-}
module Main where

import Network
import System.Console.CmdArgs
import System.Posix

import Hulk.Config  (getConfig)
import Hulk.Options (options,optionsConf)
import Hulk.Server  (start)

chrisdone

import Data.Char
import Data.List
import Control.Monad.State
import qualified Data.Map as M

data Token = Str Char String
           | Code String
  deriving Show
  
main = interact horrify

chrisdone

import Data.Ord
import Data.Char
import Data.List
import Control.Monad.State
import qualified Data.Map as M

data Token = Str Char String
           | Code String
  deriving Show
  

chrisdone

module Language.Lisk.Parser2 where

------------------------------------------------------------------------------
-- S-expression parser (Lisk tokenizer)
--

import Control.Applicative
import Text.Parsec hiding ((<|>),many,token,optional,spaces)
import Text.Parsec.Combinator hiding (optional)

chrisdone

function time_as_relative(t1,t2,fix){
  var diff = t1 - t2;
  var minute = 60, hour = minute * 60, day = hour * 24, 
  week = day * 7, month = day * 30, year = month * 12;
  return in_range(
    [0,'just now'],
    [5,'% seconds',1],
    [minute,'a minute'],
    [minute*2,'% minutes',minute],
    [minute*30,'half an hour'],

chrisdone

chris@cn-done:~/ghcjs/examples/main$ sh uglifythisdir
uglifying ./Data/HashTable.js
uglifying ./Data/Tuple.js
uglifying ./Data/Dynamic.js
uglifying ./Data/Char.js
uglifying ./Data/Word.js
uglifying ./Data/Int.js
uglifying ./Data/Bits.js
uglifying ./Data/Maybe.js