- cfg <- DC.load [ DC.Optional "/etc/htsnrc",
- DC.Optional "$(HOME)/.htsnrc" ]
+ -- After some thought, the "global" /etc/htsnrc configuration file
+ -- was left out. Since each config file needs a password, and this
+ -- should be run by a dedicated user anyway, the global file does
+ -- not serve much purpose. It could also be a security risk (visible
+ -- password) if the admin screws up.
+ home <- catchIOError getHomeDirectory (\e -> do
+ report_error (show e)
+ return "$(HOME)")
+ let user_config_path = home </> ".htsnrc"
+ cfg <- DC.load [ DC.Optional user_config_path ]