module Network.Syncthing.Post
(
ping
, bump
, hint
, sendConfig
, sendError
, clearErrors
, sendIgnores
, scanFolder
, reset
, restart
, shutdown
, upgrade
) where
import Control.Applicative ((<$>))
import Control.Monad (join, (>=>))
import qualified Data.Map as Map
import Data.Maybe (maybeToList)
import Data.Text (Text)
import Network.Syncthing.Internal.Monad
import Network.Syncthing.Internal.Request
import Network.Syncthing.Types
maybeSystemMsg :: MonadSync m => SyncRequest -> SyncM m (Maybe SystemMsg)
maybeSystemMsg = queryMaybe >=> return . join
ping :: MonadSync m => SyncM m Text
ping = getPing <$> ping'
where
ping' = query $ postRequest { path = "/rest/ping" }
bump :: MonadSync m => FolderName -> Path -> SyncM m Need
bump folder filePath =
query $ postRequest { path = "/rest/bump"
, params = [ ("folder", folder) , ("file", filePath) ]
}
hint:: MonadSync m => Device -> Server -> SyncM m ()
hint device server=
send $ postRequest { path = "/rest/discovery/hint"
, params = [("device", device), ("addr", server)]
}
sendConfig :: MonadSync m => Config -> SyncM m ()
sendConfig cfg = send $ postRequest { path = "/rest/config"
, method = post cfg
}
sendError :: MonadSync m => Text -> SyncM m ()
sendError msg = send $ postRequest { path = "/rest/error"
, method = post msg
}
clearErrors :: MonadSync m => SyncM m ()
clearErrors = send $ postRequest { path = "/rest/error/clear" }
sendIgnores :: MonadSync m => FolderName -> [Text] -> SyncM m (Maybe [Text])
sendIgnores folder ignores =
getIgnores <$> query postRequest { path = "/rest/ignores"
, method = post ignoresMap
, params = [("folder", folder)]
}
where
ignoresMap :: Map.Map Text [Text]
ignoresMap = Map.singleton "ignore" ignores
scanFolder:: MonadSync m => FolderName -> Maybe Path -> SyncM m ()
scanFolder folder subPath =
send $ postRequest { path = "/rest/scan"
, params = [("folder", folder)]
++ maybeToList (("sub",) <$> subPath)
}
restart :: MonadSync m => SyncM m SystemMsg
restart = query postRequest { path = "/rest/restart" }
shutdown :: MonadSync m => SyncM m SystemMsg
shutdown = query postRequest { path = "/rest/shutdown" }
reset :: MonadSync m => SyncM m SystemMsg
reset = query postRequest { path = "/rest/reset" }
upgrade :: MonadSync m => SyncM m (Maybe SystemMsg)
upgrade = maybeSystemMsg $ postRequest { path = "/rest/upgrade" }