paolino

import Control.Monad
import Control.Applicative

checkProperty = undefined

getDmgMult t elem = maybe 1 id $ do
  e <- elem 
  let check f = checkProperty t ((==e) . f) >>= guard
  (check succ >> return 2) `mplus` (check pred >> return 0.5)

paolino

import System.Exit ( exitWith, ExitCode(ExitSuccess) )
import Graphics.UI.GLUT
import Foreign.Marshal.Array

myInit :: IO ()
myInit = do
   clearColor $= Color4 0 0 0 0

display :: DisplayCallback
display = do

paolino

import Prelude hiding (writeFile)
import Data.ByteString.Lazy hiding (map, putStrLn, putStr)
import Data.ByteString.Internal
import Network.HTTP
import Control.Monad (when)
import Data.Time.Clock
import System.FilePath
import System.IO hiding (writeFile)
import Control.Concurrent

paolino

{-# LANGUAGE MultiParamTypeClasses, TypeSynonymInstances, FlexibleInstances #-}


import Data.Map (Map, unionWith) 

class Box b a where
	insert :: a -> b -> b
	delete :: a -> b -> b

slide :: Box b a => a -> a -> b -> b

paolino

{-# LANGUAGE MultiParamTypeClasses, TypeSynonymInstances, FlexibleInstances #-}


import Data.Map (Map, unionWith, fromList, elems, assocs, size) 
import Control.Monad ((>=>))
import Data.List (mapAccumL)
import Control.Arrow (second)
class Box b a where
	insert :: a -> b -> b
	delete :: a -> b -> b

paolino

{-# LANGUAGE ScopedTypeVariables #-}

import Control.Applicative ((<*>))
import Data.List (partition,filter, nub)

-- Una dipendenza è una coppia di valori dello stesso tipo 
type Dipendenza a = (a,a)

-- il primo valore della coppia è quello dipendente
dipendente (x,y) = x

paolino

Generating SVG using AngularJS

This pen has been constructed to let you get at quick start at making AngularJS and Twitter bootstrap pens. 
You should simply "Fork" it and start coding! :-) 
The original pen is here: http://codepen.io/netsi1964/pen/Dwvsp

A Pen by Sten Hougaard on CodePen.

License.

paolino

{-#LANGUAGE StandaloneDeriving,MultiParamTypeClasses,GeneralizedNewtypeDeriving,ViewPatterns, DeriveFunctor #-}

import Data.List (nub)
import Control.Monad.Reader (runReader, local, asks, liftM2, Reader, MonadReader)


-- Lambda expressions 
data Expr a     = T a -- terminal name
                | a :-> Expr a -- lambda parameter abstraction
                | Expr a :$ Expr a -- expression composition

paolino

------------- Spider synonims

type ES = Event Spider
type DS = Dynamic Spider

-------------- Dom + spider synonyms

type MS = MonadWidget Spider

paolino

My experiments with an XMonad setup in NixOS. This is my work box now, so it pretty much works.

probably needs:

# useradd -m iain
# passwd iain ...
# passwd root ...