Визуализация модели данных Haskell из исходного кода

Есть ли инструмент, который автоматически создает визуализацию (что-то вроде диаграммы классов) модели данных haskell из исходного кода? Что-то, что просматривает конструкторы данных и записи, показывает дерево типов и полей и выводит красивое изображение с полями и тому подобное.

Таким образом, он будет анализировать исходный код, такой как:

data Type1 = Type1 Int Type2
data Type2 = Type2 { v1 :: Type3, v2 :: Type4, v3 :: String }
data Type3 = Type3 { v4 :: Double }
data Type4 = Type4 { v4 :: Type3 }

И он будет генерировать диаграмму на основе этого с Type1, показывающим 2 атрибута и связанным с Type2, показывающим 3 атрибута с их именами и связанными с Type3 и Type4, и т. Д.