diff options
| author | defanor <defanor@uberspace.net> | 2017-12-22 02:08:51 +0300 |
|---|---|---|
| committer | defanor <defanor@uberspace.net> | 2017-12-22 02:08:51 +0300 |
| commit | 8b97635c41c998e6190f89c9883b2dcac5d8df09 (patch) | |
| tree | 26fbc721a48948954b893476a15a74d9219f4fed /Pancake/Configuration.hs | |
| parent | 9d7940ac07b1e1bf408d39df05305ef879f27729 (diff) | |
Refine documentation annotations and function names
Diffstat (limited to 'Pancake/Configuration.hs')
| -rw-r--r-- | Pancake/Configuration.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Pancake/Configuration.hs b/Pancake/Configuration.hs index 772725e..bfac392 100644 --- a/Pancake/Configuration.hs +++ b/Pancake/Configuration.hs @@ -115,7 +115,8 @@ instance Default Config where curl = "curl --compressed -4 -L " ++ "-w \"\n-pancake-\nuri: %{url_effective}\ntype: %{content_type}\n\" " --- | Loads configuration from an XDG config directory. +-- | Loads configuration from a given 'FilePath', or from an XDG +-- config directory. Writes a default one if it doesn't exist. loadConfig :: MonadIO m => Maybe FilePath -> m Config loadConfig mp = liftIO $ do configPath <- case mp of |