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

# 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

Keybase proof

I hereby claim:

• I am wiz on github.
• I am icrbow (https://keybase.io/icrbow) on keybase.
• I have a public key whose fingerprint is E668 2607 B758 0805 1067 4682 2F0A 0425 06CA B9F6

To claim this, I am signing this object:

dpwiz

// Open http://twitblock.org/ and scan yourself,
// then set a robot to press block buttons (gently).

var go = function() {
    var btn = $(".block-button").not('.blocked').not('.error').first();
    console.debug(btn.parent().find('a.screen-name > span').text());
    if (btn.length) {
        btn.click();
        setTimeout(go, 2000);
    }