From 3dfe58246ac5b32386dd253b81bdb689133ffc06 Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Sun, 26 Nov 2017 13:36:04 +0300
Subject: Add file saving

User commands are adjusted, and the code is slightly refactored in
order to fit this better.
---
 Pancake/Reading.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Pancake/Reading.hs')

diff --git a/Pancake/Reading.hs b/Pancake/Reading.hs
index bd70ad4..d910362 100644
--- a/Pancake/Reading.hs
+++ b/Pancake/Reading.hs
@@ -68,7 +68,7 @@ retrieve :: String
          -> URI
          -- ^ Document URI.
          -> IO (Maybe (BS.ByteString, Maybe URI, Maybe String))
-         -- ^ Document contents.
+         -- ^ File contents, effective URI, type.
 retrieve cmd uri = do
   putErrLn $ "Retrieving " ++ show uri
   curEnv <- getEnvironment
-- 
cgit v1.2.3