REF add some TODOS
This commit is contained in:
parent
ebbb2a714d
commit
b125a66d9e
|
@ -43,6 +43,7 @@ import System.Process
|
||||||
main :: IO ()
|
main :: IO ()
|
||||||
main = runChecks >> getArgs >>= parse
|
main = runChecks >> getArgs >>= parse
|
||||||
|
|
||||||
|
-- TODO check if daemon is running when running client
|
||||||
parse :: [String] -> IO ()
|
parse :: [String] -> IO ()
|
||||||
parse ["-d", t] = case readMaybe t of { Just t' -> runDaemon t'; _ -> usage }
|
parse ["-d", t] = case readMaybe t of { Just t' -> runDaemon t'; _ -> usage }
|
||||||
parse ("-c":args) = runClient args
|
parse ("-c":args) = runClient args
|
||||||
|
@ -78,6 +79,7 @@ newtype BWServerConf = BWServerConf
|
||||||
{ timeout :: UnixDiffTime
|
{ timeout :: UnixDiffTime
|
||||||
}
|
}
|
||||||
|
|
||||||
|
-- TODO add a cache so the browse list will load faster
|
||||||
data CurrentSession = CurrentSession
|
data CurrentSession = CurrentSession
|
||||||
{ timestamp :: UnixTime
|
{ timestamp :: UnixTime
|
||||||
, hash :: String
|
, hash :: String
|
||||||
|
|
|
@ -84,6 +84,7 @@ type Password = IO (Maybe String)
|
||||||
|
|
||||||
type MountpointPasswords = M.Map String Password
|
type MountpointPasswords = M.Map String Password
|
||||||
|
|
||||||
|
-- TODO check if mountdir exists or puke
|
||||||
data MountConf = MountConf
|
data MountConf = MountConf
|
||||||
{ passwords :: MountpointPasswords
|
{ passwords :: MountpointPasswords
|
||||||
, mountDir :: FilePath
|
, mountDir :: FilePath
|
||||||
|
|
Loading…
Reference in New Issue