X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FOptionalConfiguration.hs;h=0b5fd0a6b05cc0cd6ba5ee63a6cb3a5c342f0405;hp=77b3a06d2c42bef78908bdc09827cad73e91988d;hb=f519b55ffe72acd791bdc91b16918603afce1995;hpb=fa3bc2f624f7a7bd6b02e7bfb9fc508150074063 diff --git a/src/OptionalConfiguration.hs b/src/OptionalConfiguration.hs index 77b3a06..0b5fd0a 100644 --- a/src/OptionalConfiguration.hs +++ b/src/OptionalConfiguration.hs @@ -2,7 +2,7 @@ {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE OverloadedStrings #-} --- | The program will parse ~/.twatrc for any available configuration +-- | The program will parse ~/.halcyonrc for any available configuration -- directives, resulting in an OptionalCfg. The command-line -- arguments will be used to create another OptionalCfg, and the two -- will be merged. Finally, a default_config will be updated from @@ -89,7 +89,7 @@ instance Monoid OptionalCfg where from_rc :: IO OptionalCfg from_rc = do - cfg <- DC.load [ DC.Optional "$(HOME)/.twatrc" ] + cfg <- DC.load [ DC.Optional "$(HOME)/.halcyonrc" ] cfg_consumer_key <- DC.lookup cfg "consumer-key" cfg_consumer_secret <- DC.lookup cfg "consumer-secret" cfg_access_token <- DC.lookup cfg "access-token"