Prelude を カスタムPrelude で置き換える

はじめに

つい最近 haskell-jp で 皆さんPreludeは何を使っていますか？ という話がありました。

まとめるとだいたこんな感じです。

カスタム Prelude を使うモチベーションは、自分のよく使う関数を Prelude に入れたいとか、fromJust みたいな部分関数を排除したいなど、色々あります。

実際にカスタム Prelude を使うためにはファイルの先頭に NoImplicitPrelude 言語拡張とカスタムPreludeの import 宣言を追加する必要があります。(具体例として rio パッケージを利用します)

{-# LANGUAGE NoImplicitPrelude #-}
module Main where

import RIO

...

新しいファイルを作るたびに、ファイルの先頭に上記の宣言を書いても良いのですが、今回はこの作業なしにカスタム Prelude を使う方法をご紹介したいと思います。

extensible-0.4.9 がリリースされました。

はじめに

BIG MOON では、業務に必要なツールを自社開発しており、プログラミング言語に Haskell を採用しています。実用的に利用し始めて3年ぐらい？です。

僕らが Haskell を利用していて一番困った点はレコードの取り扱いです。

• 異なる型のフィールドラベルに同じ名前を付けたい
• フィールド全体対して関数を適用したい
• フィールド多相な関数を定義したい

このような問題に対して extensible という、(当初は謎に包まれていた) パッケージの利用を検討し、実際に既存のシステムを extensible で置き換えました。(当時アルバイトしていた matsubara0507 さんが居なければ実現不可能だったと思います)

今回、縁あって作者の fumieval さんと一緒に仕事できる機会に恵まれました。fumieval さんは簡単な質問でも、とても気さくに答えてくれます。

僕達のノウハウはまだまだとても少ないですが、この素晴らしいパッケージを広く知って欲しいと思い、まだまだ作成途中ではありますが extensible 攻略Wiki という親しみやすい雰囲気で情報を発信していくことになりました。

この wiki もまた Haskell で作られており apus という名前で公開されています。

今回の extensible-0.4.9 のアップデートは、攻略wiki のコンテンツを拡充していく中で出てきたアイデアや、関数などがいくつか追加されました。(matsubara0507 さんと弊社も色々と貢献できているはずです！)

今回はその内容について簡単な例とともに解説を行いたいと思います。

• Hackage extensible-0.4.9

Stack 1.7.1 がリリースされました。

はじめに

4月28日に Stack version 1.7.1 がリリースされました。

更新は以下のコマンドですぐに終わります。

$ stack upgrade
...

$ stack --version
Version 1.7.1, Git revision 681c800873816c022739ca7ed14755e85a579565 (5807 commits) x86_64 hpack-0.28.2

HIE でコード整形時に改行が追加されてしまうバグが直りました

はじめに

vscode + Haskell IDE Engine の組み合わせで Haskell を書き続けて半年ぐらいになります。

hie が採用している整形ツールは brittany なのですが、個人的には hindent よりも気に入っています。(最近 Add import and module support #124 が実装されたんですけど、この部分は正直気に入っていない・・・。stylish-haskell の結果の方が好きです。)

今回のバグはコード整形時にファイルの最後に空行が追加されてしまうというものでした・・・。(100回実行すると100行追加されます・・・)

• Newline added on every save #289
• Formatting code adds newline at the end of the file #521

上記の issue が Fix extra newline being added when formatting document #525 で修正されました。

手作業で毎回削除してて、絶対何かおかしいと思ってましたが、ちゃんと直りました！！！やったね！

以上です。

LiquidHaskell の --prune-unsorted フラグ

はじめに

LiquidHaskell では measure という仕組みを使って Haskell の関数を LH の述語に持ち上げることができます。

しかし、以下の nLen 関数は measure によって持ち上げることができません。

{-@ measure nLen @-}
nLen :: [Int] -> Int
nLen [] = 0
nLen (n:ns) = n + nLen ns

結論から言えば、これを解決するためには --prune-unsorted フラグを利用します。

以下は measure の基本的な使い方等についての説明です。

Haskell Quiz No.8 Conduit Part.4

Haskell Quiz No.8

難易度: λλλ

以下の Conduit を使ったコードの実行結果を予想してみてください！

#!/usr/bin/env stack
-- stack script --resolver lts-11.3
import Conduit

main :: IO ()
main = print $ runConduitPure $ return () .| do
    mapM_ leftover [1..10]
    sinkList

答えは次回。

Haskell Quiz No.7 Conduit Part.3

Haskell Quiz No.7

難易度: λλ

以下の Conduit を使ったコードの実行結果を予想してみてください！

#!/usr/bin/env stack
-- stack script --resolver lts-11.3
import Conduit

myTakeWhileC :: Monad m => (i -> Bool) -> ConduitM i i m ()
myTakeWhileC f = loop
  where
    loop = do
      mx <- await
      case mx of
        Nothing -> return ()
        Just x
          | f x       -> yield x >> loop
          | otherwise -> return ()

main :: IO ()
main = print $ runConduitPure $ yieldMany [1..10] .| do
  x <- myTakeWhileC (<= 5) .| sinkList
  y <- sinkList
  return (x, y)

答えは次回。

Haskell Quiz No.6 Conduit Part.2

Haskell Quiz No.6

難易度: λλ

以下の Conduit を使ったコードの実行結果を予想してみてください！

#!/usr/bin/env stack
-- stack script --resolver lts-11.2
import Conduit

trans :: Monad m => ConduitM Int Int m ()
trans = do
  takeC 5 .| mapC (+ 1)
  mapC (* 2)

main :: IO ()
main = runConduit $ yieldMany [1..10] .| trans .| mapM_C print

答えは次回。

最近は Conduit にはまっているので、クイズも Conduit が続きます。

Haskell Quiz No.5 Conduit Part.1

Haskell Quiz No.5

難易度: λλ

以下の Conduit を使ったコードの実行結果を予想してみてください！

#!/usr/bin/env stack
-- stack script --resolver lts-11.0
import Conduit

sink :: Monad m => ConduitM Int o m (String, Int)
sink = do
  x <- takeC 5 .| mapC show .| foldC
  y <- sumC
  return (x, y)

main :: IO ()
main = do
  let res = runConduitPure $ yieldMany [1..10] .| sink
  print res

答えは次回。

prettyprinter パッケージ

はじめに

今回は prettyprinter を使ってみました。

使おうと思ったモチベーションとしては、以下のようなデータ型をデバッグ表示させる際に prettyprinter 系パッケージを使って良い感じに表示してみようかな？という感じです。

data Person = Person Text String

表示をカスタマイズするために Show クラスのインスタンスを書き換えることは、経験上嫌なことしか起きないです・・。

自分でそれっぽい型クラスを作っても良いのですが、普通は素直に prettyprinter 系のパッケージを使った方が良いと思います！

$ stack repl --package text
Prelude> import Data.Text
Prelude Data.Text> data Person = Person Text String deriving Show
Prelude Data.Text> :set -XOverloadedStrings
Prelude Data.Text> Person "はすける" "らむだ"
Person "\12399\12377\12369\12427" "\12425\12416\12384"

Haskell Quiz No.4 幅優先探索と深さ優先探索

Haskell Quiz No.4

難易度: λ

今回は、与えられた値がリストのリストに含まれているかどうかを判定する問題です。

幅優先で探索する関数 bfs と深さ優先で探索する関数 dfs をそれぞれ定義してみましょう。

bfs :: Int -> [[Int]] -> Bool
bfs = undefined

dfs :: Int -> [[Int]] -> Bool
dfs = undefined

実行結果はだいたいこんな感じです。

$ stack repl -- Quiz4.hs
*Quiz4> xs = [[10..],[4,5,6],[7,8,9]]
*Quiz4> bfs 9 xs
True
*Quiz4> dfs 9 xs
.....

答えは次回。

Haskell Quiz No.3 QuickCheck の Arbitrary 型クラス

Haskell Quiz No.3

難易度: λ

propIsDigit テストをパスするように Digit 型の Arbitrary インスタンスを定義してみましょう。

module Quiz3 where

import Test.QuickCheck
import Data.Char (isDigit)

newtype Digit = Digit Char
  deriving Show

propIsDigit :: Digit -> Bool
propIsDigit (Digit c) = isDigit c

instance Arbitrary Digit where
  arbitrary = undefined

テストは以下のように実行します。

$ stack repl --package QuickCheck -- Quiz3.hs
*Quiz3> quickCheck propIsDigit
+++ OK, passed 100 tests.

上記のように OK になれば (たぶん) 正解です！

ヒント: 生成される値をデバッグしたい場合は sample' 関数が便利です。

*Quiz3> sample' (arbitrary :: Gen Digit)

答えは次回。

Haskell IDE Engine を Emacs で使う

はじめに

HIE (Haskell IDE Engine) を Emacs に導入する方法が HIE の README.md に追記されたので、それに従いインストールしてみました。

本記事では、導入手順を紹介します。

Haskell Quiz No.2 foldl と foldr

Haskell Quiz No.2

難易度: λλ

foldr (&&) True $ cycle [True, False]
foldl (&&) True $ cycle [True, False]

上記の2つの式の挙動の違いを説明してください。

また、なぜそうなるのか考えてみましょう！

答えは次回。

Haskell Quiz はじめました。 No.1 type, newtype, data

はじめに

何となくクイズはじめました！(頑張って続けます・・・)

間違ってたら twitter や github の issue で教えてください！

アプリケーションのバージョンに Git の情報を出してみよう！

はじめに

今回は gitrev パッケージと optparse-simple パッケージを使ってアプリケーションに Git の情報を含めてみようと思います！

利用者の多いアプリケーションだと、バグ報告時にどのコミットでビルドしたものなのか知りたい場合に便利です。

表示されるバージョン情報はこんな感じになります。

# gitrev の例
$ ./Main.hs
Main.hs: [panic master@3a0bd17fdfb8a3e334292a560280e8e0791e941c (Tue Mar 20 02:00:17 2018 +0900) (1 commits in HEAD)]

# optparse-simple の例
$ stack exec -- example-version-exe
Version 0.1.0.0, Git revision 341e785b02c4c599f64b922b4aa9cfff3c006945

以下のアプリケーション等でも利用されているように、実用度はとても高めです。

• stack
• hie
• liquidhaskell

また、実装コストもそれほどかからないため、オススメです！

Yesod v1.6 のサブサイト

はじめに

今回は Yesod を使っているマニア向け情報です。

Yesod にはサブサイトという機能があり、Yesod Book の Creating a Subsite で一通りの使い方が説明されています。

簡単に言えば、異なる Yesod アプリケーションで共通のコンポーネント (認証システム等) を利用するために使えるようです。

scaffolded site を使っている人は yesod-static パッケージで提供されている Static 型をサブサイトとして利用していることでしょう。

Yesod のバージョンが 1.6 に上がった影響により Yesod Book の内容がそのままでは動かなくなっていたため、コードを修正して実際に動かしてみたいと思います。

extra-deps に github の短縮形が指定できるようになります

はじめに

今日マージされた Allow ‘github’ shorthand for extra-deps (fixes #3873) #3890 がとても便利だと思いますのでご紹介します。

$ stack --version
Version 1.7.0, Git revision 4a140342f9b28005bf2fdd5335bdcd32c9370265 (5702 commits) x86_64 hpack-0.21.2

wizard モノイド

wizard モノイド (翻訳)

Original post: The wizard monoid

最近の GHC 8.0 は、IO 用の Monoid インスタンスを提供しています。このブログ記事では、組み合わせ可能な “wizard” を作りつつ、なぜこのインスタンスが便利なのかを示す例をお見せします。

Liquid Haskell のインストールと学習方法

はじめに

Liquid Haskell を半年ほど勉強した結果、色々と出来ることが増えて楽しくなってきました。

現状、日本語で詳しく説明しているブログ記事や Qiita 記事はほとんどありません。

とても面白いツールだと思いますので、色々と紹介していけたらと思います。

今回は Liquid Haskell の導入方法について簡単に説明したいと思います。

Liquid Haskell

はじめに

Liquid Haskell で少しハマったのでメモとして残しておきます。

本来なら先に仕様を書いて実装を書くべきだと思いますが、今回の例は既存のコードにリファインメント型をつけるような場合を想定しています。

$ liquid
LiquidHaskell Version 0.8.2.4, Git revision d641244775cd842776cecf2c5d3e9afa01549e76 (dirty)
Copyright 2013-18 Regents of the University of California. All Rights Reserved.

Liquid Haskell を気になってる人向けの記事です。

debug パッケージのアナウンス (翻訳)

debug パッケージのアナウンス (翻訳)

Original post: Announcing the ‘debug’ package

Haskell は素晴らしい言語ですが、Haskell のデバッグは間違いなく弱い部分です。この問題をどうにかするために、debug ライブラリ をリリースしました。このライブラリは全てのことを解決するのではなく、一般的なデバッグのタスクに対してシンプルで簡単に使えるような設計を目指しました。デバッグをするにあたって、みなさんが興味を持ってくれるような関数を例に取って見てみましょう。

SLURP (翻訳)

SLURP

Great original post: SLURP

すでにコミュニティの多くの人々が SLURP の提案を見ていると思います。何人かの人たちに私の意見を聞かれたり、私が議論に参加しないことについて、まぁいろいろな意見をもらいました。この議題を私が避けてきた理由を今ここで書かせてください。作者はその提案をリリース前に教えてくれましたが、その時はサポートしないことを伝えました。私はまた、失礼にならないような形で SLURP へのコメントを控えていることも伝えました。残念ながら、その結果2つのことが起こりました。

• 人によっては、とても良くない影響を与えてしまいました。
• “fork” という用語の使い方の誤解、そして残念ながら作者はその間違いを訂正していません。

つまりまとめると: 提案は私のものではなく、変更を頼んだわけでも、誰かの頭に銃を向けているわけでもありません。この説明は間違っています。他に出すことができるコメントはいくらでもありますが、正直価値はないでしょう。

間違ってはいないことは、私は日常的に多くの人や Haskell のコミュニティやエコシステムマネジメントチームと直面している問題についてコミュニケーションを取っています。仕事で幅広いユーザーと交流し、不満を聞けばそれを誰かに伝えます。私も不満を持つことがあって、それを誰かに聞いてもらいます。この不満の中には、全てが同じようなものを指しているものもあります。

私が公開できる情報というのは限られています。なぜなら、私に寄せられるかなり多くのコメントが、公にされることを嫌うようなプライベートなメールで書かれているからです。そして経験上、私のことを嘘つきだと誹謗中傷する人たちがいることも分かっています。この絶え間ない誹謗中傷を理由に発言を避けてきましたが、私はここに残しておくべきだと決断しました。わかったのは次の2つのことです。

• 私のやること成すこと全てが悪だと信じている人は、私が何か根拠を持っていてもそれを見ようとはしません。
• 私が悪魔ではないという可能性を否定しない人は、もしかしたら私の声明をその通りに受け取ってくれるかもしれないということです。

以前の私は、アーキテクチャとエコシステム開発についてオープンに議論していました。これはオープンソースコミュニティを作る唯一無二の方法だと私は信じています。Stack 対 cabal の時代の緊張が最も高まったときに、多くの人がオープンな議論に異論を唱えたため、私はより静かなコミュニケーションのチャネルに移ることにしました。これはとても残念なことだったと感じています。私はエコシステムの計画についてもっとオープンに、声高に議論をしたいと思っています。他の人たちが簡単に情報にたどり着けるようにしたいと思っています。私は閉じた扉の裏側で全てを議論することを強く反対します。オープンな議論が再開できるかどうかはいずれわかることでしょう。

stack でどうしてもビルドできないとき

はじめに

僕は stack, hlint, liquidhaskell などのパッケージを毎日なんとなくビルドしてインストールしているのですが、ある時 stack のビルドで GHC panic が発生し、ビルドができなくなってしまいました。

数日放置していたのですが、直らず・・・。そればかりか別のPCでは問題なくビルドができているため stack の問題だな！と意気揚々と issue を作ったのですが、結局は自分の環境の問題でした・・・。

僕は英語が得意ではありませんが、こういった時に批判だけするのは良くないと思っているので、頑張って issue や PR を投げるようにしています。Google 翻訳とかもありますし、誰か助けてくれますよ、きっと。 (放置されたり却下されることもありますが、気にせずコツコツ続けると楽しいです)

stack 1.6.5 がリリースされました。

はじめに

先日 Stack version 1.6.5 がリリースされました。

バグフィックスのみです。

いくつか前回の 1.6.3 に含まれていた内容が 1.6.5 に移動してますね。

Pattern Synonyms で DEPRECATED

はじめに

persistent ライブラリで SomeField を CopyField に置き換える際のPRで、パターンシノニム (Pattern Synonyms) の面白い使い方を見つけました。

もしかしたら良く知られた技なのかもしれませんが、ご紹介したいと思います。

パターンシノニムが何かについての説明は、今回全くしていませんのでわかる人向けです。

素晴らしき HLint を使いこなす

はじめに

HLint は haskell-src-exts を使って実装されている静的解析ツールです。

HLint を使えば github などを使って PR ベースで開発する場合のコードレビューでこんな事を言わなくて済みます。

• fromJust とかの部分関数は使わないで！
• maybe 関数って知ってる？
• この言語拡張って本当に使ってるの？
• undefined まだ残ってるじゃん！

嬉しいことに Travis CI や CircleCI などで一度設定するだけなので導入もお手軽です！ また、最近知ったのですが、プロジェクト内で使って欲しくない関数なども HLint によって検出可能です。

さらに、独学で Haskell の学習を進めている人は HLint が素晴らしい教師役となってくれるでしょう。

• 利用したコード

Yesod の破壊的変更予定

Original post: Upcoming Yesod breaking changes

2018年 1月 11日 Michael Snoyman

私が作ったライブラリの破壊的変更点について話をしてきましたが、Yesod をその変更から取り残したくはありませんでした。yesod-core は 2014年からバージョン1.4 で安定しています。しかし、私のパッケージエコシステムにおける MonadUnliftIO の変更は Yesod にも影響してくるでしょう。問題は、どの程度かということです。

最近遭遇した stack build 時の ld (pthread, -fPIC) エラー

はじめに

ここ最近、プロジェクトのビルド時に謎のエラーが発生するようになりました。

以下の2種類のエラーに遭遇したので、今後のために記録しておきます。

• pthread link error
• -fPIC error

$ stack --version
Version 1.7.0, Git revision 19e3460496f8fd2c462fb35a5825301e5c3c4eb0 (5527 commits) x86_64 hpack-0.20.0

travis-ci の初回ビルドで OUT OF MEMORY が出た時の対処法

はじめに

travis-ci の初回ビルド時に以下のようなエラーメッセージが表示されてビルドに失敗してしまうことがあります。

The command "stack --no-terminal test --only-dependencies" failed and exited with 1 during .

Your build has been stopped.

結論から言えば、初回ビルド時はキャッシュが働かないため、多くの依存関係をビルドする必要があり、その過程でメモリ不足になってしまっていました。

この問題をどうすれば解決できるか、メモ程度に残しておこうと思います。

Literate Markdown (markdown-unlit の使い方) について

はじめに

今回は Literate Markdown をご紹介します。(最近見つけて面白そうだったので使ってみました。)

モチベーションとしては Bird 記法や TeX 記法だけではなく、Markdown 記法も使いたいよね！という感じです。

また、HaskelL の文学的 (Literate) プログラミングについては、すでに多くのWeb・書籍等で言及されているため、必要最低限の説明に留めたいと思います。

本記事の内容は以下を参考としています。

• Haskell 2010 Language Report
• Literate Markdown
• Flexible Literate Haskell File Extensions
• sol/markdown-unlit

haddock に Grid Table 記法が追加されました

Haskell のパフォーマンスをデバッグする

Great original post: Haskell Performance Debugging.

2017年 12月 18日 Matt Parsons

誰かが reddit に Treap の実装が遅い と投稿していました。それを分析して、何が起きているのかを考えてみましょう。

レポジトリはここにあります。

最初の実行

Cabalプロジェクトを作り、makefile を作ります。そして、最初のプロファイルを取ります。コードとプロファイル結果は GitHub の masterブランチにあります。

実行されているコードやプロファイル結果を見る前に、質問のデータ構造の定義を確認しておきましょう:

data Node  v d = Node { val :: v, info :: d, prior :: Int }
    deriving (Eq, Show)
data Treap v d = Leaf | Tree {node :: Node v d, left :: Treap v d, right :: Treap v d}
    deriving Show

stack v1.6.3 がリリースされました。

はじめに

以下のコマンドで stack v1.6.3 のバイナリが落ちてきます。

$ stack upgrade

リリースノート

• Changelog.md

機能追加は無く、改良とバグフィックスのみです。

stack ls コマンドは今回に含まれていないので v1.7.0 で追加されそうな感じですね。

VS Code で Ghcid を使う

Great original post: Ghcid with VS Code.

2017年 11月 10日 Neil Mitchell

概要: 新しいバージョンの Ghcid と VS Code拡張がリリースされ、よりいい感じに動くようになった。

Ghcid v0.6.8 と関連する VS Code拡張 haskell-ghcid v0.2.0 をリリースしました。 一緒に使うと、Ghcid + VS Code 環境をシンプルなものにしてくれます。

カスタムスナップショットの紹介

ちょっと前に version 1.6.1 がリリースされたので、その中の目玉機能でもある カスタムスナップショット を紹介したいと思います。

将来も使えるテストスイート

Great original post: Future proofing test suites.

2017年 11月 12日 Michael Snoyman

まず、最近何回か見た具体的なケースから話を始めましょう。そしてそれを元に一般的な話をします。もしもあなたがパッケージの作者で、この問題に直面してきたのなら、ちょっと聞いてくださいよ。私がこの情報をブログの記事にしているのは、いくつものバグトラッカーで同じ説明を何回もするよりも、ここに一回だけ書いて、そのリンクを貼ればいいと考えたからです。

hlint は Haskell のコードをより良くするためのアドバイスをくれる、素晴らしいツールです (Neil Mitchell のもう一つの素晴らしいプロダクト)。その別のプロダクトのように、hlint もまた新しいバージョンで、より良いアドバイスをくれるような進化を遂げています。まぁこれは、昔の hlint では出なかった警告が、新しいバージョンで突然出るようになるかもしれない、という意味でもあります。

stack ls コマンドが追加されます

Stack の master に stack ls コマンドがマージされました。

• Add stack ls snapshots documentation to the user guide #3672

今後、このコマンドのサブコマンドに list-dependencies などを順次追加していく方針?のようです。

• Stack list-dependencies : Bring it under the new ls umbrella command #3669

Haskell で暗号学的ハッシュを扱う

Great original post: CRYPTOGRAPHIC HASHING IN HASKELL..

2017年 9月 18日 Michael Snoyman

cryptonite は現在、Haskell で暗号を扱う際のデファクトスタンダードです。 一般的に安全な乱数、共通鍵・公開鍵暗号、MAC (メッセージ認証符号)等をサポートしていて、その中には今日の話題、暗号学的ハッシュも含まれています。

まず、ハッシュ関数について軽く説明しましょう。ハッシュ関数とは、任意長のデータを固定長のデータに変換するものです。暗号学的ハッシュ関数は、暗号を扱う上で望ましい性質をそなえたハッシュ関数です (詳しくは Wikipedia を参照)。 一般的な暗号学的ハッシュ関数の使われ方の一例として、ダウンロードされたファイルが改ざんされていないことを保証するための、チェックサムを提供する、というものがあります。 今日使われている暗号学的ハッシュ関数には、SHA256、Skein512、そしてまぁ、ちょっと古いですが MD5 などがあります。

cryptonite は memory というライブラリの一番上の階層にあります。この memory ライブラリは、Byte 配列を扱うための型クラスと便利な関数を提供しています。 「全て ByteString でいいのでは?」と思うかもしれませんが、後ほどこの型クラスの便利さを示します。