handsy 0.0.1 → 0.0.2

raw patch · 3 files changed

+11/−3 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

+ System.Handsy.Remote: pullFile :: FilePath -> FilePath -> Handsy ()

+ System.Handsy.Remote: pushFile :: FilePath -> FilePath -> Handsy ()

- System.Handsy: command :: MonadFree HandsyF m_a7sT => String -> [String] -> ByteString -> m_a7sT (ExitCode, ByteString, ByteString)

+ System.Handsy: command :: MonadFree HandsyF m_a7tf => String -> [String] -> ByteString -> m_a7tf (ExitCode, ByteString, ByteString)

- System.Handsy: readFile :: MonadFree HandsyF m_a7tv => String -> m_a7tv ByteString

+ System.Handsy: readFile :: MonadFree HandsyF m_a7tR => String -> m_a7tR ByteString

- System.Handsy: writeFile :: MonadFree HandsyF m_a7tz => String -> ByteString -> m_a7tz ()

+ System.Handsy: writeFile :: MonadFree HandsyF m_a7tV => String -> ByteString -> m_a7tV ()

Files

handsy.cabal +3/−1
src/System/Handsy.hs +2/−2
src/System/Handsy/Remote.hs +6/−0

handsy.cabal view

@@ -1,13 +1,15 @@ name:          handsy-version:       0.0.1+version:       0.0.2 synopsis:      A DSL to describe common shell operations and interpeters for running them locally and remotely. -- description:   +Homepage:      https://github.com/utdemir/handsy license:       BSD3 author:        Utku Demir maintainer:    utdemir@gmail.com category:      System build-type:    Simple cabal-version: >=1.10+  source-repository head   type:     git

src/System/Handsy.hs view

@@ -21,9 +21,9 @@                | WriteFile    String B.ByteString          (() -> k)              deriving (Functor) -makeFree ''HandsyF- type Handsy = FreeT HandsyF IO++makeFree ''HandsyF  run :: Handsy a -> IO a run h = do

src/System/Handsy/Remote.hs view

@@ -32,3 +32,9 @@   where     (ssh, sshOpts) = sshCommand opts     runSsh prg args stdin = run (command ssh (sshOpts ++ prg : args) stdin)++pushFile :: FilePath -> FilePath -> Handsy ()+pushFile local remote = liftIO (B.readFile local) >>= writeFile remote++pullFile :: FilePath -> FilePath -> Handsy ()+pullFile remote local = readFile remote >>= liftIO . B.writeFile local