sordina

{ name : Text, ip : Text, pageLimit : Integer }

sordina

{ access_level : Integer, address : Text }

sordina

sordina

module Main where

import Control.Monad.Random.Class
import Algebra.Graph
import Control.Monad
import Data.Maybe
import Lib

main :: IO ()
main = print =<< foo [1..4]

sordina

{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE TemplateHaskell #-}

import Control.Lens
import Control.Lens.Operators
import Data.List
import Control.Monad
import Control.Monad.State

vec1 = [1  .. 3]

sordina

import Test.QuickCheck

f x  = x * (-1 ^ x)
f' x = abs x

data OddEven = Odd | Even deriving (Eq, Show, Enum, Bounded)
data PosNeg  = Pos | Neg  deriving (Eq, Show, Enum, Bounded)

instance Arbitrary OddEven where arbitrary = elements [Odd,Even]

sordina

primes :: [Integer]

sordina

{-# LANGUAGE TypeFamilies  #-}

import Control.Monad.Identity
import Prelude hiding (lookup)

class Applicative f => Naperian f where
  type Log f
  lookup :: f a -> (Log f -> a)
  table  :: (Log f -> a) -> f a

sordina

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TupleSections #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}

-- | A library for checking that the contents of files have changed.

module Text.UniqhashC (changedFiles, main) where

import Conduit
import Control.Exception

sordina