import Data.Maybe ( fromMaybe )
import Data.Monoid ( Monoid(..) )
import Data.Data ( Data )
-import Data.Typeable ( Typeable )
import Paths_list_remote_forwards ( getSysconfDir )
import System.Directory ( getHomeDirectory )
import System.FilePath ( (</>) )
password :: Maybe String,
port :: Maybe Int,
username :: Maybe String }
- deriving (Show, Data, Typeable)
+ deriving (Show, Data)
-- | Combine two Maybes into one, essentially mashing them