View xmonad.hs
import Data.Monoid
import Control.Monad
import qualified Data.Map as M
import XMonad hiding ((|||))
import XMonad.Util.EZConfig
import qualified XMonad.StackSet as W
View ShiftReturn.hs
{-# LANGUAGE RankNTypes #-}
newtype Cont r a = Cont { unCont :: (a -> r) -> r }
runCont :: (forall r. Cont r a) -> a
runCont (Cont c) = c id
{-# INLINEABLE runCont #-}
instance Monad (Cont r) where
return x = Cont $ \k -> k x
View Choices.hs
{-# LANGUAGE RankNTypes #-}
module Choices
( Choices(..)
, branch
) where
import Data.Monoid
import Control.Applicative
import Control.Monad
View Increasing.lhs
> module Increasing
> ( Increasing(..)
> , getExact
> , getBound, getBounds
> , makeIncreasing
> ) where
>
> import Control.Concurrent.MVar
> import System.IO.Unsafe
View Increasing.lhs
> module Increasing
> ( Increasing(..)
> , getExact
> , getBound, getBounds
> , makeIncreasing
> ) where
>
> import Control.Concurrent.MVar
> import System.IO.Unsafe
View Increasing.lhs
> module Increasing
> ( Increasing(..)
> , getExact
> , getBound, getBounds
> , makeIncreasing
> ) where
>
> import Control.Concurrent.MVar
> import System.IO.Unsafe
View SepNonDet.lhs
> module NonDet where
>
> import Prelude hiding (foldl, foldr)
>
> import Data.Functor
> import Data.Foldable
> import Data.Traversable
>
> import Data.Monoid
>
View Ladders.lhs
> {-# LANGUAGE BangPatterns #-}
> import Prelude hiding (foldl, foldr, foldl1, foldr1, (.), id)
>
> import Data.Functor
> import Data.Foldable
> import Data.Traversable
>
> import Data.Monoid
>
> import Control.Applicative
View pkg.log
/usr/lib/ghc-7.6.1/package.conf.d:
Cabal-1.16.0
QuickCheck-2.5.1.1
X11-1.6.0.2
X11-xft-0.3.1
array-0.4.0.1
base-4.6.0.0
bin-package-db-0.0.0.0
binary-0.5.1.1
bytestring-0.10.0.0
View hakyll.hs
{-# LANGUAGE OverloadedStrings #-}
import Control.Arrow ((>>>), arr)
import Control.Monad (forM_)
import Hakyll
main :: IO ()
main = hakyll $ do
match "css/*" $ do
route idRoute