Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Get all the non-identifying options

  • Loading branch information...
commit 0ca8065869ed947801168048de1be83634e169b5 1 parent 3bdf99d
@samstokes authored
Showing with 4 additions and 0 deletions.
  1. +4 −0 SSH/Config.hs
View
4 SSH/Config.hs
@@ -4,6 +4,7 @@ module SSH.Config
, HostOption(..)
, alias
, hostName
+ , nonIdentifyingOptions
, label
, user
, port
@@ -40,6 +41,9 @@ alias = head . names
hostName :: Section -> String
hostName section = fromMaybe (alias section) $ lookup "HostName" (options section)
+nonIdentifyingOptions :: Section -> [HostOption]
+nonIdentifyingOptions = filter ((flip notElem) ["HostName", "Port"] . fst) . options
+
label :: Section -> String
label section = if friendly == detail
then friendly
Please sign in to comment.
Something went wrong with that request. Please try again.