chemist

{-# LANGUAGE TemplateHaskell, DeriveDataTypeable, StandaloneDeriving, NamedFieldPuns #-}

module CloudTest where

import Remote
import Remote.Call

import Control.Applicative
import Control.Monad
import Control.Monad.Trans

chemist

{-# LANGUAGE TemplateHaskell, DeriveDataTypeable, StandaloneDeriving #-}

module CloudTest where

import Remote

import Control.Applicative
import Control.Monad
import Control.Monad.Trans

chemist

angular.module('bDatepicker', []).
  directive('bDatepicker', function(){
    return {
      require: '?ngModel',
      restrict: 'A',
      link: function($scope, element, attrs, controller) {
        var updateModel;
        updateModel = function(ev) {
          element.datepicker('hide');
          element.blur();

chemist

#!/bin/bash

# URL = http://mac.pcbeta.com/viewthread.php?tid=118050&extra=
# run: sudo ./pd8_trialreset.sh

rm -rfd /Library/Preferences/Parallels
rm -rfd ~/Library/Preferences/Parallels
rm -rfd /private/var/.Parallels_swap
rm -rfd ~/Library/Preferences/com.parallels*
rm -rfd /private/var/db/Parallels

chemist

:set prompt " >>> "

let ghciEscapeShellArg arg = "'" ++ concatMap (\x -> if x == '\'' then "'\"'\"'" else [x]) arg ++ "'"                             
:def! search return . (":! hoogle --color --count=20 " ++) . ghciEscapeShellArg                                                   
:def! doc return . (":! hoogle --info " ++) . ghciEscapeShellArg

chemist

{-# LANGUAGE RecordWildCards #-}
module Main where

import Data.Time
import Data.Set
import Data.Monoid

type Req = (String, String)
type Rules = [String]
type Ip = String

chemist

 ~/develop/bench -$ cat Main.hs                                                   iMac-Alexej@chemist :)
import Control.Concurrent
import Control.Concurrent.STM
import Criterion.Main
import Data.IORef


main = do
    mv <- newMVar ()
    tv <- newTMVarIO ()

chemist

module Main where
import qualified Data.Map as Map
import Data.Either (lefts, rights)

data DbColumn = DbColumn { name :: String
                         , tableName :: TableName
                         } deriving Show

newtype TableName = TableName String deriving (Ord, Eq, Show)

chemist

{-# LANGUAGE ScopedTypeVariables #-}
module Main where
import Yi
import Yi.Keymap.Vim (keymapSet, mkKeymapSet, defVimConfig, pureEval, impureEval, VimConfig(..), VimBinding(..))
import Yi.Keymap.Vim.Common (VimMode(..), RepeatToken(..))
import Yi.Keymap.Vim.Utils (mkStringBindingE, mkStringBindingY)
import qualified Yi.Mode.Haskell as Haskell
import Yi.Style
import Yi.Core (msgEditor)
import Yi.Style.Library

chemist

extern crate parser_combinators as pc;
 use pc::*;
 use pc::primitives::{State, Stream};

 fn main() {
     match parser(parse_passport).parse("a123,456") {
         Ok((r,l)) => println!("{} {} {}", r.label, r.body, l),
         Err(e) => println!("{}", e)
     }
 }