1{- |
2Tests in plain comments in both single line or multi line format, both forward and backward.
3Tests are ignored if:
4    * do not start on the first column (in Ordinary Haskell)
5    * do not start on the first or second column (in Literate Haskell)
6-}
7module THaddock () where
8
9{- ORMOLU_DISABLE -}
10
11-- | Single line comment
12-- >>> "a"++"b"
13
14{- | Multi line comment
15
16>>> "b"++"c"
17-}
18
19double :: Num a => a -> a
20double a = a + a
21-- ^ Single line backward comments
22-- >>> double 11
23
24twice :: [a] -> [a]
25twice a = a ++ a
26{- ^ Multi-line backward comments
27>>> twice "ABC"
28-}
29
30{- | >>> 2+five
31
32   ^-- This works, as it starts at the first column after the header.
33
34     >>> IGNORED as it does not start on the first column
35-}
36five :: Integer
37five = 5
38