haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

copy-to-port #724

Browse Source
This commit is contained in:
Michael Snoyman 2014-04-24 06:38:53 +03:00
parent e9311d0e1f
commit f43c7fd3e4
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
yesod-bin/Keter.hs
View File

@ -62,7 +62,10 @@ keter cabal noBuild = do
L.writeFile fp $ compress $ Tar.write archive L.writeFile fp $ compress $ Tar.write archive
case Map.lookup "copy-to" value of case Map.lookup "copy-to" value of
Just (String s) -> run "scp" [fp, T.unpack s] Just (String s) ->
case parseMaybe (.: "copy-to-port") value of
Just i -> run "scp" ["-P" ++ show (i :: Int), fp, T.unpack s]
Nothing -> run "scp" [fp, T.unpack s]
_ -> return () _ -> return ()
try' :: IO a -> IO (Either SomeException a) try' :: IO a -> IO (Either SomeException a)

2
yesod-bin/yesod-bin.cabal
View File

@ -1,5 +1,5 @@
name: yesod-bin name: yesod-bin
version: 1.2.8.2 version: 1.2.9
license: MIT license: MIT
license-file: LICENSE license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com> author: Michael Snoyman <michael@snoyman.com>