Haskell で美人時計の美人をずるりとダウンロード

美人時計という素晴らしいサービスがあります。

http://www.bijint.com/jp/


1分ごとに美人が表示される素晴らしいサイトですが、悲しい技術者の性。url 分かるんだったら画像取得できるじゃん。などと思ってしまうわけです。

カレーおじさん Haskell で書いてみた!

色々忘却している模様で無駄に時間がかかった。

do print uri >> hFlush stdout
   Right res <- simpleHTTP $ makeReq uri
   write res

の Right res って書き方が謎。
糖衣構文なのかな。

threadDelay (5 * 1000000)

標準的な sleep みたいなのが無かったので、これを使ってみた。
マイクロ秒なので 0 の数が多く打ちまつがえそうだが Vim なら 6a0 で良いので便利。

うばー

結局途中で止めてしまった。
猫時計が良いよ。