summaryrefslogtreecommitdiff
path: root/Network/Pastis.hs
diff options
context:
space:
mode:
authorAlpMestanogullari <>2011-09-26 19:28:13 (GMT)
committerhdiff <hdiff@luite.com>2011-09-26 19:28:13 (GMT)
commit93f8adbaf4a1de9afa63f890b1ac5476b4ef2c6f (patch)
tree9eb1c041a4796763013b811906a70cf1402ca4ce /Network/Pastis.hs
parenta2479f1f7ce8ab4acf45fd259626969310350664 (diff)
version 0.1.2HEAD0.1.2master
Diffstat (limited to 'Network/Pastis.hs')
-rw-r--r--Network/Pastis.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Network/Pastis.hs b/Network/Pastis.hs
index 83a2fa9..982c5e7 100644
--- a/Network/Pastis.hs
+++ b/Network/Pastis.hs
@@ -3,7 +3,7 @@ module Network.Pastis (pastisURL) where
import Network.HTTP
import Network.URI
--- | Use pastisURL to shorten a URL.
+-- | Use pastisURL to shorten a URL. If an error occurs, the function returns 'url'.
pastisURL :: String -> IO String
pastisURL url = fmap (either (const url) rspBody) (simpleHTTP request) `catch` (return . const url)
where request = Request { rqURI = uri