diagrams-pandoc-0.4: test/codeblock.md

Here is a square:

``` {.diagram-haskell echo=Above}
example = square 1
```