flaw-network/Flaw/Network/Session.hs from quyse/flaw

flaw-network/Flaw/Network/Session.hs

  case HM.lookup userId sessionsByUserId of
    Just session -> deleteSession sessionManager session
    Nothing -> return ()

Found

case HM.lookup userId sessionsByUserId of
    Just session -> deleteSession sessionManager session
    Nothing -> return ()

Perhaps

Data.Foldable.forM_ (HM.lookup userId sessionsByUserId)
  (deleteSession sessionManager)

quyse/flaw