X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Rakka%2FAuthorization.hs;h=a7d8c601cced91cc73fc76f750798469049bbb04;hb=bea735cd0409bc96e2962ee9e97cae5f7bf4d585;hp=a7bcbea64025c5dc7fbf1cb5928b739381fb50b9;hpb=43113f26d3e61c96d896724c5509abe67b6a99e7;p=Rakka.git

diff --git a/Rakka/Authorization.hs b/Rakka/Authorization.hs
index a7bcbea..a7d8c60 100644
--- a/Rakka/Authorization.hs
+++ b/Rakka/Authorization.hs
@@ -7,27 +7,22 @@ module Rakka.Authorization
     , delUser
     )
     where
-
-import qualified Codec.Binary.UTF8.String as UTF8
 import           Control.Concurrent.STM
+import           Control.Monad
 import           Control.Monad.Trans
 import qualified Data.ByteString as B
 import           Data.Map (Map)
 import qualified Data.Map as M hiding (Map)
 import           Data.Maybe
-import           OpenSSL.EVP.Base64
-import           OpenSSL.EVP.Digest
 import           Rakka.SystemConfig
 import           System.Directory
 import           System.FilePath
-import           System.IO
 
 
 data AuthDB
     = AuthDB {
         adbFilePath    :: !FilePath
       , adbUserMap     :: !(TVar UserMap)
-      , adbSyncRequest :: !(TVar Bool)
       }
 
 
@@ -37,12 +32,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
                     }