Skip to content

Instantly share code, notes, and snippets.

View warpr's full-sized avatar
🎧
Programming

Kuno Woudt warpr

🎧
Programming
View GitHub Profile
@warpr
warpr / t.hs
Created September 1, 2013 19:40
{-# LANGUAGE OverloadedStrings #-}
import Control.Monad.Exception.Synchronous
import Data.Conduit
import qualified Control.Exception as E
import Network.HTTP.Types.Status
import Network.HTTP.Conduit
import qualified Data.ByteString.Lazy as L
import qualified Network (withSocketsDo)
import Control.Exception as E
@warpr
warpr / error.hs
Created September 16, 2013 17:05
import System.Exit( exitWith, ExitCode(..) )
exit = exitWith ExitSuccess
die = exitWith $ ExitFailure 1
readSomething :: String -> Either String String
readSomething s = Right (s ++ " -> 200 OK")
readSomethingElse :: String -> Either String String
readSomethingElse s = Left (s ++ " -> 404 NOT FOUND")
### Keybase proof
I hereby claim:
* I am warpr on github.
* I am kuno (https://keybase.io/kuno) on keybase.
* I have a public key whose fingerprint is CD8B DEB7 DB1D F510 E63F E870 E5DF CA41 E61D 71C9
To claim this, I am signing this object:
_ = require('underscore');
var commonPrefix = function(l) {
return _(l).reduce(function (memo, item) {
if (!memo) {
return item;
}
var prefix = [];
@warpr
warpr / README.md
Created January 3, 2015 19:09
wald-query example

example

Here is a basic example which asks wikidata for some information about Britney Spears' Blackout album:

var wq = query.connect('ldf:http://data.wikidataldf.com/wikidata', ns);

var result = wq.query("wikidata:Q192755", {

id: "@id",