From f43c7fd3e42119c55c2c05af16991c5b8c3817b3 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 24 Apr 2014 06:38:53 +0300
Subject: [PATCH] copy-to-port #724

---
 yesod-bin/Keter.hs        | 5 ++++-
 yesod-bin/yesod-bin.cabal | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/yesod-bin/Keter.hs b/yesod-bin/Keter.hs
index 8a246509..8093d6f0 100644
--- a/yesod-bin/Keter.hs
+++ b/yesod-bin/Keter.hs
@@ -62,7 +62,10 @@ keter cabal noBuild = do
     L.writeFile fp $ compress $ Tar.write archive
 
     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 ()
 
 try' :: IO a -> IO (Either SomeException a)
diff --git a/yesod-bin/yesod-bin.cabal b/yesod-bin/yesod-bin.cabal
index cdc360af..17c46606 100644
--- a/yesod-bin/yesod-bin.cabal
+++ b/yesod-bin/yesod-bin.cabal
@@ -1,5 +1,5 @@
 name:            yesod-bin
-version:         1.2.8.2
+version:         1.2.9
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>