Dynamo clone in haskell