broke out fairly generic ssh stuff to Assistant.Ssh so pairing can use it too

I'd rather Utility.Ssh, but the SshData type is not sufficiently clean and
generic for Utility.

1 files changed, 1 insertions, 10 deletions

diff --git a/Assistant/WebApp/Types.hs b/Assistant/WebApp/Types.hs
index d018cddbf..f12aedee1 100644
--- a/Assistant/WebApp/Types.hs
+++ b/Assistant/WebApp/Types.hs
@@ -11,6 +11,7 @@
 module Assistant.WebApp.Types where
 
 import Assistant.Common
+import Assistant.Ssh
 import Assistant.ThreadedMonad
 import Assistant.DaemonStatus
 import Assistant.ScanRemotes
@@ -67,16 +68,6 @@ data WebAppState = WebAppState
 	{ showIntro :: Bool
 	}
 
-data SshData = SshData
-	{ sshHostName :: Text
-	, sshUserName :: Maybe Text
-	, sshDirectory :: Text
-	, sshRepoName :: String
-	, needsPubKey :: Bool
-	, rsyncOnly :: Bool
-	}
-	deriving (Read, Show, Eq)
-
 instance PathPiece SshData where
     toPathPiece = pack . show
     fromPathPiece = readish . unpack