testsuite/tests/ghc-api/annotations/CommentsTest.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{-# LANGUAGE DeriveFoldable #-}
module CommentsTest (foo) where
{-
An opening comment
  {- with a nested one -}
  {-# nested PRAGMA #-}
-}

import qualified Data.List as DL

-- | The function @foo@ does blah
foo = let
        a = 1
        b = 2 -- value 2
      in a + b