@@ -30,8 +30,11 @@ import Control.Exception.Enclosed
30import Control.Monad
30import Control.Monad
31import Control.Monad.Catch
31import Control.Monad.Catch
32import Control.Monad.STM
32import Control.Monad.STM
33−import Control.Retry
33+import Control.Retry (RetryPolicy,
35+ limitRetries, recovering)
34import Data.Aeson
36import Data.Aeson
37+import Data.Monoid ((<>))
35import qualified Data.Text.Encoding as T
38import qualified Data.Text.Encoding as T
36import Data.Typeable
39import Data.Typeable
37import Data.UUID
40import Data.UUID