diff --git a/apps/simplex-store-service/src/StoreService/Names/Turns.hs b/apps/simplex-store-service/src/StoreService/Names/Turns.hs index 0ff9968594..8d0c47db78 100644 --- a/apps/simplex-store-service/src/StoreService/Names/Turns.hs +++ b/apps/simplex-store-service/src/StoreService/Names/Turns.hs @@ -1,5 +1,6 @@ {-# LANGUAGE NamedFieldPuns #-} +-- | A thread that takes a turn it already holds waits forever. Label turns are taken before a code turn. module StoreService.Names.Turns (Turns, newTurns, withLabelTurn, withLabelTurns, withCodeTurn) where import Control.Concurrent.STM