shakers 0.0.18 → 0.0.19

raw patch · 2 files changed

+35/−1 lines, 2 files

Files

• shakers.cabal +1/−1
• src/Development/Shakers.hs +34/−0

@@ -1,5 +1,5 @@ name:                  shakers-version:               0.0.18+version:               0.0.19 synopsis:              Shake helpers. description:           Primitive helpers for Shake files. homepage:              https://github.com/swift-nav/shakers

@@ -6,6 +6,7 @@ module Development.Shakers   ( module Exports   , (<:>)+  , timestamp   , buildFile   , fakeFile   , metaFile@@ -29,8 +30,12 @@   , rsync_   , ssh   , ssh_+  , sshScreen+  , sshScreen_   , sshDir   , sshDir_+  , sshScreenDir+  , sshScreenDir_   , rmirror_   , rssh   , rssh_@@ -61,6 +66,11 @@ (<:>) :: (IsString m, Monoid m) => m -> m -> m (<:>) = (<>) . (<> ":") +-- | Unix timestamp.+--+timestamp :: Action String+timestamp = cmdArgs "date" [ "+%s" ]+ -- | File used for version change detection. -- shakeFile :: FilePath@@ -216,6 +226,20 @@ ssh_ :: String -> [String] -> Action () ssh_ h as = cmdArgs_ "ssh" $ h : as +-- | SSH command with screen.+--+sshScreen :: String -> [String] -> Action String+sshScreen h as = do+  t <- timestamp+  ssh h $ "-t" : "screen" : "-S" : t : as++-- | SSH command with screen no return.+--+sshScreen_ :: String -> [String] -> Action ()+sshScreen_ h as = do+  t <- timestamp+  ssh_ h $ "-t" : "screen" : "-S" : t : as+ -- | SSH command in a remote directory. -- sshDir :: String -> FilePath -> [String] -> Action String@@ -225,6 +249,16 @@ -- sshDir_ :: String -> FilePath -> [String] -> Action () sshDir_ h d as = ssh_ h $ "cd" : d : "&&" : as++-- | SSH command with screen in a remote directory.+--+sshScreenDir :: String -> FilePath -> [String] -> Action String+sshScreenDir h d as = sshScreen h $ "cd" : d : "&&" : as++-- | SSH command with screen in a remote directory with no return.+--+sshScreenDir_ :: String -> FilePath -> [String] -> Action ()+sshScreenDir_ h d as = sshScreen_ h $ "cd" : d : "&&" : as  -- | Mirror directory remotely. --