dpwiz

{-# LANGUAGE TemplateHaskell #-}
module CNth where
 
import Language.Haskell.TH
import Data.List
 
cnth :: Int -> Q Exp
cnth n = dotE qs
    where
      qs = head . reverse . take n . drop 1 $ ads

dpwiz

module Hedis
    (
    -- * Application classes
      HasRedis(..)
    -- * App-wrapped redis runner
    , redis
    -- * Re-export other stuff from "Database.Redis"
    , module R
    ) where

dpwiz

while true; do
    clear && cabal build && $@
    inotifywait -qq -e modify -r src/ *.cabal
done

dpwiz

The script utilizes `cabal sandbox` to keep the guts from spilling into system packages.

The documentation builder is `standalone-haddock`[1] so you have to install it and put on your PATH first. A `hscolour` have to be installed to provide source links.

[1]: https://hackage.haskell.org/package/standalone-haddock
[2]: https://hackage.haskell.org/package/hscolour

dpwiz

## include "/path/to/haskell.nanorc"

syntax "haskell" "\.hs$"
color green "(\||@|!|:|_|~|=|\\|;|\(|\)|,)"
color magenta "(True|False|==|/=|&&|\|\||<|>|<=|>=)"
color green "(->|<-|!)"
color red "[\n\t](as|case|of|class|data|default|deriving|do|forall|foreign|hiding|if|then|else|import|infix|infixl|infixr|instance|let|in|mdo|module|newtype|qualified|type|where)[ \n\t]"
color brightblue "'.'"
color brightblue "'\\[ntfr]'"
color brightblue ""[^\"]*""

dpwiz

module PlainOldXML where

import           Network.HTTP.Conduit
import           Text.XML
import           Text.XML.Cursor

xmlQuery :: Manager -> String -> Document -> IO Cursor
xmlQuery manager url doc = do
    putStrLn "Request:" >> BSL.putStrLn (renderLBS (def { rsPretty = True }) doc)

dpwiz

module JSONRPC.Client where

import Control.Applicative ((<|>))
import Data.Aeson (encode, decode)
import Data.Aeson.Types
import Network.HTTP.Conduit
import qualified Data.Text as T
import qualified Data.ByteString.Lazy.Char8 as BSL

data (FromJSON a) => JSONRPCReply a =

dpwiz

import Debug
import Graphics.Input as Input
import Html
import Html (..)
import Html.Attributes (..)
import Html.Events (..)
import Html.Tags (..)
import Http
import Window

dpwiz

# Usage:
# $ wget http://hipstername.tld/download/linux-x64/scarf && chmod +x scarf
# $ ./scarf gist:wiz/c32460e1ecbf612bb12f

title: Demo template
source: github:login/reponame

params:
  - key: spam
    title: Spam

dpwiz

module Main where

import Html (..)
import Html.Attributes (..)
import Html.Events (..)
import List
import LocalChannel as LC
import Signal

-- Model