Initial project setup

Author: jkozlowski

.ghci

@@ -0,0 +1,17 @@
+import System.FSNotify
+import Data.String
+import Control.Concurrent.MVar
+import Control.Concurrent
+
+:{
+:def test const (withManager (\manager -> 
+     do putStrLn "Listening to changes, press any key to stop..."
+        lock <- newEmptyMVar
+        watchTree manager (fromString ".") (const True) (const $ putMVar lock True)
+        forkIO (getLine >> putMVar lock False)
+        rerun <- readMVar lock
+        return $ if rerun 
+          then ":reload \n :main \n :test"
+          else ""
+     ))
+:}

.gitattributes

@@ -0,0 +1,2 @@
+# Enforce LF line endings.
+* text=auto

.gitignore

@@ -0,0 +1,12 @@
+dist
+cabal-dev
+*.o
+*.hi
+*.chi
+*.chs.h
+.virthualenv
+.cabal-sandbox
+.hpc
+cabal.sandbox.config
+*.log
+.#*

.travis.yml

@@ -0,0 +1,13 @@
+language: haskell
+
+before_install:
+  - cabal install --only-dependencies --enable-tests
+  - cabal install hpc-coveralls --avoid-reinstalls
+
+script:
+  - cabal configure --enable-tests --enable-library-coverage
+  - cabal build
+  - run-cabal-test --show-details=always
+
+after_script:
+  - hpc-coveralls --exclude-dir=tests kdb-haskell-hpc

CONTRIBUTING.md

@@ -0,0 +1 @@
+No specific guidelines atm.

Makefile

@@ -0,0 +1,40 @@
+CABALSANDBOX := ".cabal-sandbox"
+
+.PHONY: bench clean haddock hpc init install repl run test
+
+all: install hpc bench haddock run
+
+bench: install
+	cabal build
+	cabal bench --benchmark-options="-o report.html"
+
+clean:
+	cabal clean
+	if test -d .cabal-sandbox; then cabal sandbox delete; fi
+	if test -d .hpc; then rm -r .hpc; fi
+
+haddock:
+	cabal configure
+	cabal build
+	cabal haddock --hyperlink-source
+	# dist/doc/html/threase/index.html
+
+hpc: test
+	hpc report dist/hpc/tix/hspec/hspec.tix
+	hpc markup --destdir=tmp dist/hpc/tix/hspec/hspec.tix
+init:
+	cabal update
+	cabal sandbox init
+
+install: init
+	cabal install --enable-benchmarks --enable-tests --flags=documentation --only-dependencies
+
+repl:
+	cabal configure
+	cabal build
+	cabal repl
+
+test: install
+	cabal configure --enable-tests
+	cabal build
+	cabal test

Setup.hs

@@ -0,0 +1,3 @@
+import           Distribution.Simple
+
+main = defaultMain

benchmarks/Benchmark.hs

@@ -0,0 +1,25 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  Benchmark
+-- Copyright   :  (c) 2014, Jakub Kozlowski
+-- License     :  MIT
+--
+-- Maintainer  :  mail@jakub-kozlowski.com
+--
+-- All benchmarks.
+-----------------------------------------------------------------------------
+module Main where
+
+import           Criterion.Main
+
+fib :: Int -> Int
+fib 0 = 0
+fib 1 = 1
+fib n = fib (n-1) + fib (n-2)
+
+main :: IO ()
+main = defaultMain [
+      bench "fib 10" $ nf (\n -> fib (10+n-n)) 10
+    , bench "fib 30" $ nf (\n -> fib (30+n-n)) 30
+    , bench "fib 35" $ nf (\n -> fib (35+n-n)) 35
+    ]

kdb-haskell.cabal

@@ -0,0 +1,107 @@
+name:               kdb-haskell
+version:            0.1.0
+synopsis:           Haskell bindings for KDB+.
+description:        This package implements binding for KDB+ database (kx.com) in Haskell.
+category:           Finance, Database
+homepage:           https://github.com/jkozlowski/kdb-haskell
+bug-reports:        https://github.com/jkozlowski/kdb-haskell/issues
+license-file:       LICENSE
+license:            MIT
+
+author:             Jakub Kozlowski
+copyright:          2014 Jakub Kozlowski <mail@jakub-kozlowski.com>
+maintainer:         mail@jakub-kozlowski.com
+
+build-type:         Custom
+cabal-version:      >= 1.9.2
+extra-source-files: LICENCE
+                    README.md
+                    CONTRIBUTING.md
+
+source-repository head
+  location:
+      git@github.com:jkozlowski/kdb-haskell.git
+  type:
+      git
+
+flag documentation
+  default:
+      False
+
+library
+  exposed-modules:    Database.Kdb.Types
+  default-language:   Haskell2010
+  build-depends:      base >= 4 && < 5
+                    , mtl
+                    , bytestring
+                    , text
+                    , containers
+                    , binary
+                    , lens
+                    , QuickCheck == 2.6.*
+                    , directory
+  hs-source-dirs:     src
+  ghc-options:       -Wall 
+                     -fwarn-incomplete-patterns
+                     -funbox-strict-fields
+
+test-suite kdb-haskell-hpc
+  main-is:            Test.hs
+  type:               exitcode-stdio-1.0
+  build-depends:      base
+                    , bytestring
+                    , containers
+                    , text
+                    , time
+                    , binary
+                    , mtl
+                    , lens
+                    , tasty == 0.8
+                    , tasty-quickcheck == 0.8
+                    , QuickCheck == 2.6.*
+                    , Cabal >= 1.9.2
+  Ghc-Options:       -Wall 
+                     -O0 
+                     -fhpc 
+                     -hpcdir 
+                      dist/hpc/mix/kdb-haskell-tests
+                     -funbox-strict-fields
+  hs-source-dirs:     src 
+                    , tests
+
+test-suite kdb-haskell-tests
+  hs-source-dirs:     src 
+                    , tests
+  main-is:            Test.hs
+  type:               exitcode-stdio-1.0
+  build-depends:      base
+                    , bytestring
+                    , containers
+                    , text
+                    , time
+                    , binary
+                    , mtl
+                    , lens
+                    , tasty == 0.8
+                    , tasty-quickcheck == 0.8
+                    , QuickCheck == 2.6.*
+                    , Cabal >= 1.9.2
+                      -- Dependencies for rerunning tests in ghci 
+                    , fsnotify >= 0.0.11
+                    , system-filepath >= 0.4.7
+  Ghc-Options:       -Wall 
+                     -O0
+                     -funbox-strict-fields 
+
+benchmark kdb-haskell-benchmark
+  type:               exitcode-stdio-1.0
+  hs-source-dirs:     src
+                    , benchmarks
+  main-is:            Benchmark.hs
+  build-depends:      base
+                    , mtl
+                    , criterion
+                    , random
+  ghc-options:       -Wall
+                     -O2
+                     -funbox-strict-fields

src/Database/Kdb/Types.hs

@@ -0,0 +1,17 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  Database.Kdb.Types
+-- Copyright   :  (c) 2014, Jakub Dominik Kozlowski
+-- License     :  MIT
+--
+-- Maintainer  :  mail@jakub-kozlowski.com
+--
+-- Main types used throughout the code.
+-----------------------------------------------------------------------------
+module Database.Kdb.Types (
+    Kdb
+  ) where
+
+-- | Main Kdb data type.
+data Kdb = Bool
+