wavewave

Name: ATLAS2011
Class: TopLevel
Description: ATLAS 2011 detector description
Reference: arXiv:xxxx.yyyy
Comment: extracted the efficiencies from the plot 3,4,5 in the reference
ValidationInfo: Validated on 2014/02
Object: 
    Electron: 
        Import: Electron_Loose_ATLAS
    Photon: 

wavewave

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE ExplicitForAll #-}

import GHC.TypeLits


data Proxy (a :: Nat) = Proxy 

wavewave

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE GADTs #-}

import GHC.TypeLits

data Tree :: * -> * where
  Leaf :: a -> Tree a 
  Node :: Tree a -> Tree a -> Tree a

wavewave

{-# LANGUAGE StandaloneDeriving #-}

import Debug.Trace

data BTree a = L
             | N a (BTree a) (BTree a)
          
deriving instance (Show a) => Show (BTree a)

maketree :: Int -> Int -> BTree Int

wavewave

import Control.Concurrent
import Control.Concurrent.STM
import Data.Monoid
import Graphics.Rendering.Cairo 
import Graphics.UI.Gtk.Poppler.Document 
import Graphics.UI.Gtk.Poppler.Page
import System.Directory
import System.FilePath

popplerGetDocFromFile :: FilePath -> IO (Maybe Document)

wavewave

import Control.Monad (forever)
import Pipes 
import Pipes.Core
import qualified Pipes.Prelude

list2pipe :: (Monad m) => [a] -> Producer a m ()
list2pipe [] = return ()
list2pipe (x:xs) = yield x >> list2pipe xs

tuple3 :: (Monad m) => Consumer a m (a,a,a)

wavewave

{
  packageOverrides = pkgs: rec {
    #                                                                                                               
    hepNixOverlay =
      let self = pkgs.callPackage /home/wavewave/repo/src/hep-nix-overlay {};
      in pkgs.recurseIntoAttrs self;
    #                                                                                                               
    yesodEnv =
      let hsenv = with (pkgs // pkgs.haskellPackages); ghcWithPackages
            (self : [ cabalInstall

wavewave

#include "test.h"

void mutateint( int* p ) 
{ 
  (*p) = 10 ; 
}

wavewave

import Graphics.UI.Gtk 
import Control.Monad.Trans

main :: IO ()
main = do 
  putStrLn "file open test"

  initGUI

  window <- windowNew 

wavewave

import Graphics.UI.Gtk 
import Control.Monad.Trans

import System.Directory

main :: IO ()
main = do 
  putStrLn "file open test"

  initGUI