Mark some TODOs as done.

diff --git a/Framework/API.hs b/Framework/API.hs
index 5cd25cb..3fc3602 100644
--- a/Framework/API.hs
+++ b/Framework/API.hs
@@ -14,7 +14,6 @@ module Framework.API

 import Debug.Trace

--- import qualified Network.Shed.Httpd as Httpd
 import qualified Database.HDBC as HDBC
 import qualified Data.Map as M
 import Network.HTTP
diff --git a/Framework/Http/HTTPServer.hs b/Framework/Http/HTTPServer.hs
index 322e58c..fa364f8 100644
--- a/Framework/Http/HTTPServer.hs
+++ b/Framework/Http/HTTPServer.hs
@@ -13,7 +13,6 @@ import Control.Concurrent.Chan
 import Codec.Binary.UTF8.String
 import System.Directory
 import Control.Exception
--- import Network.Shed.Httpd
 import Network.URI
 import Network.HTTP
 import Data.Maybe
diff --git a/Framework/Urls.hs b/Framework/Urls.hs
index d727d30..7a524b1 100644
--- a/Framework/Urls.hs
+++ b/Framework/Urls.hs
@@ -68,7 +68,7 @@ data URLResult = NoResult

 -- | Main dispatcher function
 runURLConf :: StaticConfig              -- ^ Static (global) config
-           -> HttpRequest            -- ^ HTTP request
+           -> HttpRequest               -- ^ HTTP request
            -> String                    -- ^ URL itself
            -> URLConf                   -- ^ Dispatcher configuration
            -> IO HttpResponse
@@ -159,7 +159,7 @@ infixr 6 <|>
 --
 -- | Get HTTP GET var value
 httpGetVar :: HttpRequest       -- ^ HTTP Request
-           -> String        -- ^ Var name
+           -> String            -- ^ Var name
            -> Maybe String
 httpGetVar rq name = lookup name pairs
     where pairs = queryToArguments $ uriQuery $ rqURI rq
diff --git a/TODO b/TODO
index 8c90b3e..bc15a16 100644
--- a/TODO
+++ b/TODO
@@ -1,11 +1,11 @@
 TODO

  * Протестировать поддержку PUT web-сервером;
- * (?) Перенести текущий правленный Network.Shed.Httpd в дерево проекта (написать свой?);
+ * [DONE] Перенести текущий правленный Network.Shed.Httpd в дерево проекта (написать свой?);
  * Лучше интегрировать Httpd в движок, в частности - чтоб средствами движка писал логи итп;
- * Лучше формализовать формат запроса (reqMethod=="GET" -> reqMethod==GET итп), вероятно, следует привести в соответствие с Network.HTTP;
+ * [DONE] Лучше формализовать формат запроса (reqMethod=="GET" -> reqMethod==GET итп), вероятно, следует привести в соответствие с Network.HTTP;
  * Человеческая обработка завершения программы;
- * При отдаче статики не коннектиться к БД и прочему;
+ * [DONE] При отдаче статики не коннектиться к БД и прочему;
  * Отдельная структура (и модуль?) для конфига (StaticConfig в нынешнем виде должна стать промежуточной структурой, заполняемой из конфига);
  * Соответственно, все параметры, которые сейчас hard-coded, брать из конфига;
  * (?) Чтение конфига из файла либо удобный EDSL для конфига;