diff options
Diffstat (limited to 'Utility/TSet.hs')
| -rw-r--r-- | Utility/TSet.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Utility/TSet.hs b/Utility/TSet.hs index 24d345477..bb711a4fb 100644 --- a/Utility/TSet.hs +++ b/Utility/TSet.hs @@ -23,12 +23,12 @@ getTSet :: TSet a -> IO [a] getTSet tset = runTSet $ do c <- readTChan tset go [c] - where - go l = do - v <- tryReadTChan tset - case v of - Nothing -> return l - Just c -> go (c:l) + where + go l = do + v <- tryReadTChan tset + case v of + Nothing -> return l + Just c -> go (c:l) {- Puts items into a TSet. -} putTSet :: TSet a -> [a] -> IO () |