diff options
Diffstat (limited to 'Assistant/WebApp/Types.hs')
-rw-r--r-- | Assistant/WebApp/Types.hs | 11 |
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 |