From 12a066d96332b40f346621c9376c5c7328c92a0b Mon Sep 17 00:00:00 2001 From: Mateusz Kowalczyk Date: Tue, 9 Dec 2014 07:00:07 +0000 Subject: Allow the parser to spit out meta-info MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Currently we only use it only for ‘since’ annotations but with these patches it should be fairly simple to add new attributes if we wish to. Closes #26. It seems to work fine but due to 7.10 rush I don't have the chance to do more exhaustive testing right now. The way the meta is output (emphasis at the end of the whole comment) is fairly arbitrary and subject to bikeshedding. Note that this makes test for Bug310 fail due to interface version bump: it can't find the docs for base with this interface version so it fails. There is not much we can do to help this because it tests for ’built-in’ identifier, not something we can provide ourselves. --- html-test/ref/Bug26.html | 175 +++++++++++++++++++++++++++++++++++++++++++++++ html-test/src/Bug26.hs | 29 ++++++++ 2 files changed, 204 insertions(+) create mode 100644 html-test/ref/Bug26.html create mode 100644 html-test/src/Bug26.hs (limited to 'html-test') diff --git a/html-test/ref/Bug26.html b/html-test/ref/Bug26.html new file mode 100644 index 00000000..117286ce --- /dev/null +++ b/html-test/ref/Bug26.html @@ -0,0 +1,175 @@ + +Bug26

 

Safe HaskellSafe-Inferred

Bug26

Description

This module tests the ‘@since …’ annotation.

Since: 1.2.3

Synopsis

  • f :: ()
  • g :: ()
  • class C a where

Documentation

f :: ()

Foo

Since: 2.10.8

g :: ()

Bar

class C a where

Class

Since: 1.0

Methods

c_f :: a

Since: 1.2.3

Instances

C ()

instance for ()

Since: 0.7.8

diff --git a/html-test/src/Bug26.hs b/html-test/src/Bug26.hs new file mode 100644 index 00000000..b0483f03 --- /dev/null +++ b/html-test/src/Bug26.hs @@ -0,0 +1,29 @@ +-- | This module tests the ‘@since …’ annotation. +-- +-- @since 1.2.3 +module Bug26 where + +-- | Foo +-- +-- @since 2.10.7 +-- +-- @since 2.10.8 +f :: () +f = () + +-- | Bar +g :: () +g = () + +-- | Class +-- +-- @since 1.0 +class C a where + -- | @since 1.2.3 + c_f :: a + +-- | instance for () +-- +-- @since 0.7.8 +instance C () where + c_f = () -- cgit v1.2.3