X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FAuthorization.hs;h=adf2da54fc9a520db5273e38acdad9bd7c215876;hp=ccc4b36c477318177f064fdca75f79d7ab43b427;hb=87df74aaf1fc55047bac7ac234546db7547cf166;hpb=706ee842873fdceb9465cdf6a583176ab855fae2

diff --git a/Rakka/Authorization.hs b/Rakka/Authorization.hs
index ccc4b36..adf2da5 100644
--- a/Rakka/Authorization.hs
+++ b/Rakka/Authorization.hs
@@ -28,7 +28,6 @@ data AuthDB
     = AuthDB {
         adbFilePath    :: !FilePath
       , adbUserMap     :: !(TVar UserMap)
-      , adbSyncRequest :: !(TVar Bool)
       }
 
 
@@ -38,12 +37,10 @@ type UserMap = Map String String
 mkAuthDB :: FilePath -> IO AuthDB
 mkAuthDB lsdir
     = do let path = lsdir </> "authDB"
-         m   <- newTVarIO =<< loadUserMap path
-         req <- newTVarIO False
+         m <- newTVarIO =<< loadUserMap path
          return AuthDB {
-                      adbFilePath    = path
-                    , adbUserMap     = m
-                    , adbSyncRequest = req
+                      adbFilePath = path
+                    , adbUserMap  = m
                     }