@@ -1,3 +1,4 @@
1+{-# LANGUAGE PackageImports #-}
12module ProjectM36.Sessions where
23import Control.Concurrent.STM
34#if MIN_VERSION_stm_containers(1,0,0)
@@ -13,9 +14,11 @@ import ProjectM36.Session
1314import ProjectM36.Relation
1415import ProjectM36.Error
1516import qualified Data.UUID as U
16−import qualified Control.Foldl as Foldl
1717#if MIN_VERSION_stm_containers(1,0,0)
18+import qualified Control.Foldl as Foldl
1819import qualified DeferredFolds.UnfoldlM as UF
20+#else
21+import "list-t" ListT
1922#endif
2023
2124type Sessions = StmMap.Map SessionId Session