А откуда берется инстанс Monad (Either e) ? Чето нету из прелюдии Prelude Data.Either> :i Either data Either a b = Left a | Right b -- Defined in `Data.Either' instance (Eq a, Eq b) => Eq (Either a b) -- Defined in `Data.Either' instance (Ord a, Ord b) => Ord (Either a b) -- Defined in `Data.Either' instance (Read a, Read b) => Read (Either a b) -- Defined in `Data.Either' instance (Show a, Show b) => Show (Either a b) -- Defined in `Data.Either'
Statement -> IO [a]
Пока сделал с ++ типа такого
fetchAll :: Statement -> IO [[SqlValue]]
fetchAll st = fetchAll' st []
where
fetchAll' st !acc = do
row <- fetchRow st
case row of
Nothing -> return acc
Just x -> fetchAll' st $ acc ++ [x]
Но это понятное дело не красиво — постоянная кокатенация списка, да и без deepseq список будет обрастать мотней из санков в аккумуляторе.
gist.github.com атрибут value выцеплять я уже научился. Необходимо получать значения подписей к чекбоксам. Заодно — возможно, кто-нибудь знает, как написать этот же хтмл более осмысленно (там label всякие и т.п.), учитывая, что аттрибут name у чекбоксов будет одинаковый, вроде foo[].
Есть хтмл: Утром, прежде чем поехать на работу, решил таки отмыть стекла машины от всякой дряни, что на них налипла, с деревьев и птичек. Почему только окна, а не всю машину? Потому что, когда сидишь в машине, грязными видишь только окна :)
Достал заготовленную чистую микрофибровую рукавицу. Вытащил из багажника бутылку с остатками нужной жидкости (для омывателя). Намочил рукавицу, протер стекла. Повторно протел насухо другой стороной рукавицы. Довольный сел в машину и уехал.
А бутылка, как стояла у переднего колеса, так и осталась одиноко стоять. А пробка бутылки осталась на капоте. Дошло это до меня на втором перекрестке. Развернулся и поехал обратно. Забрал бутылку назад в багажник.
Это жара, да?
swf_code=`( echo "GET view?film_id=9457 HTTP/1.1"; echo "Host: intv.ru"; echo; sleep 3 ) | telnet flv.intv.ru 80 | sed 's/uplayer.swf?id=\([a-zA-Z0-9]\{1,\}\)/\|\1\|/g' | awk -F"\|" '{ print $2 }'`; echo ---$swf_code---
должно быть ---moH9Z4XNV6--- а выходит --- moH9Z4XNV6--- кто шарит гляньте свежим взглядом...