dpwiz

import Data.Aeson
import Network.HTTP
 
import System.Environment (getArgs)
import Control.Monad (mapM_)
 
import Data.Maybe (fromMaybe)
import qualified Data.ByteString.Lazy.Char8 as LBS
import qualified Data.Text as T
import qualified Data.HashMap.Strict as HM

dpwiz

{-# LANGUAGE OverloadedStrings #-}

import Web.Scotty
import Network.AMQP

import Control.Monad.Trans (liftIO)
import qualified Control.Exception as E
import qualified Data.Text.Lazy as TL
import qualified Data.ByteString.Lazy.Char8 as LBS

dpwiz

-- | Little helper to apply default service namespace to a node and it's descendants.
--   This removes the necessity to flood your code with {http://vendor.silly.web/Service.spamx} in element names.
flowNS :: Maybe Text -> Node -> Node
flowNS ns (NodeElement (Element (Name local Nothing prefix) as cs)) = NodeElement $ Element (Name local ns prefix) as $ map (flowNS ns) cs  -- update element ns and continue
flowNS ns (NodeElement (Element name@(Name _ ns' _) as cs))         = NodeElement $ Element name as                   $ map (flowNS ns') cs -- switch to new namespace and continue
flowNS ns node = node -- ignore non-element nodes

dpwiz

fias=> SELECT housenum FROM house ORDER BY substring(housenum FROM '\d+')::int, housenum;

 housenum 
----------
 1/1
 2
 2а
 2г
 3
 3а

dpwiz

{
    "actstat": {
        "convert": {
            "actstatid": "int"
        }
    },
    "addrobj": {
        "null": [
            "actstat",
            "nextid",

dpwiz

#!../venv/bin/python

import pika, pprint, json
import time

import logging
logging.basicConfig()

def jsonlog(channel, method_frame, header_frame, body):
    msg = json.loads(body)

dpwiz

import Graphics.UI.Gtk

main :: IO ()
main = do
    initGUI
    window <- windowNew
    button <- buttonNew
    set window [ containerBorderWidth := 10
               , containerChild := button ]
    set button [ buttonLabel := "Hello World" ]

dpwiz

{
    "folders":
    [
        {
            "path": "",
            "folder_exclude_patterns": ["cabal-dev", "dist"]
        }
    ],
    "build_systems":
    [

dpwiz

\documentclass{article}
\usepackage[utf8]{inputenc}

\title{42}
\author{Jane Doe}
\date{June 2011}

\usepackage{natbib}
\usepackage{graphicx}

dpwiz

-- * Stuff

import Database.SQL (connectDB, dbquery)
import Database.Cache (cacheGet, cacheSet)
import Network.SOAP (soap)

import Control.Monad (guard)

type Oven = String
type Product = String