git.iko.soy/project-m36
on master help sign in
fix stack build with older stm-containers
bdcbe42AgentM
src/lib/ProjectM36/Sessions.hs+4−1
compare with master
unifiedsplit
@@ -1,3 +1,4 @@
1+{-# LANGUAGE PackageImports #-}
1module ProjectM36.Sessions where
2module ProjectM36.Sessions where
2import Control.Concurrent.STM
3import Control.Concurrent.STM
3#if MIN_VERSION_stm_containers(1,0,0)
4#if MIN_VERSION_stm_containers(1,0,0)
@@ -13,9 +14,11 @@ import ProjectM36.Session
13import ProjectM36.Relation
14import ProjectM36.Relation
14import ProjectM36.Error
15import ProjectM36.Error
15import qualified Data.UUID as U
16import qualified Data.UUID as U
16−import qualified Control.Foldl as Foldl
17#if MIN_VERSION_stm_containers(1,0,0)
17#if MIN_VERSION_stm_containers(1,0,0)
18+import qualified Control.Foldl as Foldl
18import qualified DeferredFolds.UnfoldlM as UF
19import qualified DeferredFolds.UnfoldlM as UF
20+#else
21+import "list-t" ListT
19#endif
22#endif
20
23
21type Sessions = StmMap.Map SessionId Session
24type Sessions = StmMap.Map SessionId Session