Skip to content

Instantly share code, notes, and snippets.

class Z
def call_some_method arg
puts arg
end
def yoba
:yobamethod
end
def test
-- | Monad from Yesod with HasPostgresql instances and such stuff
type Handler a = HandlerT App IO a
-- | Generates value if it is not presented in given DMap or just gets
-- it from DMap if presented
dmLookupOr :: (Applicative m, DM.GCompare k)
=> DMap k -- ^ depmap to take value from
-> k a -- ^ key to find value of
-> m a -- ^ action to produce value if key not found
-> m a
class Reception(models.Model):
doctor_id = models.ForeignKey(Doctor)
patient_id = models.ForeignKey(Patient)
day = models.DateField(max_length=140)
time_from = models.TimeField()
time_to = models.TimeField()
module Main where
import Text.Parsec
import Text.Parsec.String
import Control.Monad.Trans.Error
import Control.Monad.Trans
data Person = Person {persNmb :: Integer,
persSymbol :: Char,
user.email=s9gf4ult@gmail.com
user.name=Aleksey Uimanov
colour.ui=1
color.ui=yes
push.default=simple
log.date=iso
rerere.enabled=true
core.repositoryformatversion=0
core.filemode=true
core.bare=false
@s9gf4ult
s9gf4ult / gist:5162805
Created March 14, 2013 16:27
web-mode fail indentation on this file inside switch/case expressions
<?php
class QRClientsOrganisation extends SpecialPage {
function __construct() {
parent::__construct( 'QRClientsOrganisation' );
wfLoadExtensionMessages('QRClientsOrganisation');
}
function execute( $par ) {
@s9gf4ult
s9gf4ult / VV.hs
Last active December 18, 2015 23:59 — forked from rblaze/VV.hs
{-# LANGUAGE ScopedTypeVariables #-}
module VV where
import Control.Monad
import Foreign.ForeignPtr.Safe
import Foreign.Storable
import System.IO
import qualified Data.Vector.Storable as U
15:20 razor@localhost /home/razor % cat ./yoba.hs
{-# LANGUAGE ScopedTypeVariables, TypeFamilies #-}
module VV where
import Control.Monad
import Foreign.ForeignPtr.Safe
import Foreign.Storable
import System.IO
import System.Environment
import qualified Data.Vector.Storable as U
#include <stdio.h>
class Message;
class MoveMessage;
class StopMessage;
class MessageVisitor {
public:
virtual int visit(MoveMessage &msg) = 0;
virtual int visit(StopMessage &msg) = 0;
#include <errno.h>
#include <netdb.h>
#include <netinet/in.h>
#include <stdio.h>
#include <string.h>
#include <sys/socket.h>
#include <sys/types.h>
#include <unistd.h>
#include <stdlib.h>
#include <readline/readline.h>