Skip to content

Instantly share code, notes, and snippets.

View zouppen's full-sized avatar

Joel Lehtonen OH64K zouppen

View GitHub Profile
@zouppen
zouppen / KeyValueStorage-dojo.hs
Last active December 17, 2015 07:39 — forked from anonymous/KeyValueStorage-dojo.hs
Haskell/STM Dojo at Pub Hemingways, Jyväskylä, Finland on 2013-05-13.
{-# LANGUAGE OverloadedStrings #-}
module KeyValueStorage where
import Data.Functor
import Control.Concurrent.STM
import Data.Text (Text)
import Data.Text.Encoding (encodeUtf8)
import Data.ByteString.Lazy (ByteString)
import qualified Data.ByteString.Lazy.Char8 as B
import qualified Data.ByteString.Char8 as BS