1-- | This tests the table markup
2module Table
3  ( tableWithHeader
4  , tableWithoutHeader
5  , fancyTable
6  ) where
7
8-- | Table with header.
9--
10-- +------+--------------+------------------------------------------+
11-- | code | message      | description                              |
12-- +======+==============+==========================================+
13-- | 200  |   @OK@       | operation successful                     |
14-- +------+--------------+------------------------------------------+
15-- | 204  | @No Content@ | operation successful, no body returned   |
16-- +------+--------------+------------------------------------------+
17tableWithHeader :: a -> a
18tableWithHeader a = a
19
20-- | Table without header.
21--
22-- +------+--------------+------------------------------------------+
23-- | 200  |   @OK@       | operation successful                     |
24-- +------+--------------+------------------------------------------+
25-- | 204  | @No Content@ | operation successful, no body returned   |
26-- +------+--------------+------------------------------------------+
27-- | 404  | @Not Found@  | resource not found                       |
28-- +------+--------------+------------------------------------------+
29tableWithoutHeader :: a -> a
30tableWithoutHeader a = a
31
32-- | Fancy table.
33--
34-- +------------------------+------------+----------+----------+
35-- | Header row, column 1   | Header 2   | Header 3 | Header 4 |
36-- | (header rows optional) |            |          |          |
37-- +========================+============+==========+==========+
38-- | body row 1, column 1   | column 2   | column 3 | column 4 |
39-- +------------------------+------------+----------+----------+
40-- | 'tableWithHeader'      | Cells may span columns.          |
41-- +------------------------+------------+---------------------+
42-- | body row 3             | Cells may  | \[                  |
43-- +------------------------+ span rows. | f(n) = \sum_{i=1}   |
44-- | body row 4             |            | \]                  |
45-- +------------------------+------------+---------------------+
46fancyTable :: a -> a
47fancyTable x = x
48