Skip to content

Instantly share code, notes, and snippets.

View amitaibu's full-sized avatar

Amitai Burstein amitaibu

View GitHub Profile
<IfModule !mpm_winnt_module>
<IfModule !mpm_netware_module>
LockFile "/private/var/log/apache2/accept.lock"
</IfModule>
</IfModule>
module Handler.Events where
import qualified Data.Text.Read as T
import Handler.Event
import Import
addPager :: ( PersistEntity val
, PersistEntityBackend val ~ YesodPersistBackend m
, PersistQuery (YesodPersistBackend m)
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE RecordWildCards #-}
import Control.Monad (when, liftM, join)
@amitaibu
amitaibu / .travis.yml
Created April 17, 2016 09:04 — forked from iamEAP/.travis.yml
Template for integrating Travis-CI and Pantheon Multidev
language: php
#
# Important to note, this is the version of PHP used to run this build, not the
# one used to run your Drupal installation. Ensure compatibility with the Drush
# and Terminus versions you're using for this build.
#
php:
- 5.3
module Example where
import Control.Applicative
import Test.QuickCheck
import Test.QuickCheck.Checkers
import Test.QuickCheck.Classes
data Sum a b =
First a
module Example where
import Control.Applicative
import Test.QuickCheck
import Test.QuickCheck.Checkers
import Test.QuickCheck.Classes
data Sum a b =
First a
initialFields : List ( String, Field.Field )
initialFields =
[ ( "name", Field.Text "hey" )
, ( "profile"
, Field.group
[ ( "foo", Field.Radio "ho" ) ]
)
]
--- VS
-- Page: 689
module Applicatives where
import Control.Applicative
import Data.Monoid
import Test.QuickCheck
import Test.QuickCheck.Checkers
import Test.QuickCheck.Classes
drush en page_manager panels views_content
module Example where
import Data.Semigroup
import Test.QuickCheck
data Trivial = Trivial deriving (Eq, Show)
instance Semigroup Trivial where
_ <> _ = Trivial