dimitri-xyz

-- base
-------
c :: Int
c = 5

plusc :: Int -> Int
plusc x = x + c

main = putStrLn $ "the total is: " ++ show (plusc 1)

dimitri-xyz

-- base
-------
c :: Int
c = 5

plusone :: Int -> Int
plusone x = x + 1

main = putStrLn $ "the total is: " ++ show (plusone c)

dimitri-xyz

-----------------------------------
import System.IO
import Control.Monad.Reader
import Control.Monad.IO.Class
import Control.Exception.Base (evaluate)

data ColumnHeaders = FirstLine | None

withCSV :: FilePath -> (Handle -> IO r) -> IO r
withCSV path action = do

dimitri-xyz

import System.IO
import Control.Monad
import Control.Monad.IO.Class
import Control.Exception.Base (evaluate)

import Pipes
import Pipes.Prelude (stdoutLn)

withCSV :: FilePath -> (Handle -> IO r) -> IO r
withCSV path action = do

dimitri-xyz

import Control.Monad.Random.Class
import System.Random
import Data.Word

maxIterations :: Int
maxIterations = 100

acceptReject :: (Random a, MonadRandom m) => (a -> Bool) -> (a -> b) -> m b
acceptReject = acceptReject' (Just maxIterations)