app/Config.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{-# LANGUAGE Strict #-}

module Config
  ( coreCount
  , coreSize
  , syncInterval
  ) where

import Data.Bits ((!<<.))
import Data.Word (Word64)

coreCount :: Int
coreCount = 2

coreSize :: Word64
coreSize = 1 !<<. 20

syncInterval :: Int
syncInterval = 1 !<<. 20