From b8dcf173c272ebf85bbf2b427f84522e1474d092 Mon Sep 17 00:00:00 2001
From: Simon Hengel <sol@typeful.net>
Date: Wed, 11 Apr 2012 07:54:33 +0200
Subject: Add support for hyperlink labels to parser

---
 tests/unit-tests/parsetests.hs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'tests/unit-tests')

diff --git a/tests/unit-tests/parsetests.hs b/tests/unit-tests/parsetests.hs
index 7180a79e..0192ebfc 100644
--- a/tests/unit-tests/parsetests.hs
+++ b/tests/unit-tests/parsetests.hs
@@ -9,6 +9,7 @@ import Haddock.Lex (tokenise)
 import Haddock.Parse (parseParas)
 import Haddock.Types
 import Outputable
+import Data.Monoid
 
 instance Outputable a => Show a where
   show = showSDoc . ppr
@@ -53,8 +54,21 @@ tests = [
       input  = ">>> putFooBar\nfoo\n<BLANKLINE>\nbar"
     , result = Just $ DocExamples $ [Example "putFooBar" ["foo","","bar"]]
     }
+
+  -- tests for links
+  , ParseTest {
+      input  = "<http://example.com/>"
+    , result = Just . DocParagraph $ hyperlink "http://example.com/" Nothing `mappend` DocString "\n"
+    }
+
+  , ParseTest {
+      input  = "<http://example.com/ some link>"
+    , result = Just . DocParagraph $ hyperlink "http://example.com/" (Just "some link") `mappend` DocString "\n"
+    }
   ]
 
+hyperlink :: String -> Maybe String -> Doc RdrName
+hyperlink url = DocHyperlink . Hyperlink url
 
 main :: IO ()
 main = do
-- 
cgit v1.2.3


From 1483f369caaacc25e07f9715b15e49c35205b417 Mon Sep 17 00:00:00 2001
From: Simon Hengel <sol@typeful.net>
Date: Wed, 16 May 2012 13:37:02 +0200
Subject: Use LANGUAGE pragmas instead of default-extensions in cabal file

---
 haddock.cabal                            | 4 ----
 src/.ghci                                | 2 +-
 src/Haddock/Interface/AttachInstances.hs | 2 +-
 src/Haddock/InterfaceFile.hs             | 2 +-
 src/Haddock/Utils.hs                     | 1 +
 src/Main.hs                              | 2 +-
 tests/unit-tests/.ghci                   | 2 +-
 7 files changed, 6 insertions(+), 9 deletions(-)

(limited to 'tests/unit-tests')

diff --git a/haddock.cabal b/haddock.cabal
index 9d6f1a9b..609df296 100644
--- a/haddock.cabal
+++ b/haddock.cabal
@@ -104,8 +104,6 @@ executable haddock
 
   main-is:              Main.hs
   hs-source-dirs:       src
-  default-extensions:   CPP, DeriveDataTypeable,
-                        ScopedTypeVariables, MagicHash
   ghc-options:          -funbox-strict-fields -O2 -Wall -fwarn-tabs
 
   other-modules:
@@ -165,8 +163,6 @@ library
     build-depends: QuickCheck >= 2.1 && < 3
 
   hs-source-dirs:       src
-  default-extensions:   CPP, DeriveDataTypeable,
-                        ScopedTypeVariables, MagicHash
   ghc-options:          -funbox-strict-fields -O2 -Wall -fwarn-tabs
 
   exposed-modules:
diff --git a/src/.ghci b/src/.ghci
index f00e6d55..3e83f04c 100644
--- a/src/.ghci
+++ b/src/.ghci
@@ -1 +1 @@
-:set -i../dist/build/autogen -i../dist/build/haddock/haddock-tmp/ -packageghc -optP-include -optP../dist/build/autogen/cabal_macros.h -XCPP -XDeriveDataTypeable -XScopedTypeVariables -XMagicHash
+:set -i../dist/build/autogen -i../dist/build/haddock/haddock-tmp/ -packageghc -optP-include -optP../dist/build/autogen/cabal_macros.h
diff --git a/src/Haddock/Interface/AttachInstances.hs b/src/Haddock/Interface/AttachInstances.hs
index c012f2e0..d9f4350f 100644
--- a/src/Haddock/Interface/AttachInstances.hs
+++ b/src/Haddock/Interface/AttachInstances.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE MagicHash #-}
+{-# LANGUAGE CPP, MagicHash #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Haddock.Interface.AttachInstances
diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs
index ebe15325..7abb0583 100644
--- a/src/Haddock/InterfaceFile.hs
+++ b/src/Haddock/InterfaceFile.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE CPP, RankNTypes, ScopedTypeVariables #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 -----------------------------------------------------------------------------
 -- |
diff --git a/src/Haddock/Utils.hs b/src/Haddock/Utils.hs
index ad61e88a..ef1b0469 100644
--- a/src/Haddock/Utils.hs
+++ b/src/Haddock/Utils.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Haddock.Utils
diff --git a/src/Main.hs b/src/Main.hs
index 8c15661d..52406821 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,5 +1,5 @@
 {-# OPTIONS_GHC -Wwarn #-}
-{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE CPP, ScopedTypeVariables #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Main
diff --git a/tests/unit-tests/.ghci b/tests/unit-tests/.ghci
index 10563664..dcc5b13d 100644
--- a/tests/unit-tests/.ghci
+++ b/tests/unit-tests/.ghci
@@ -1 +1 @@
-:set -i../../src -i../../dist/build/autogen -i../../dist/build/haddock/haddock-tmp/ -packageghc -optP-include -optP../../dist/build/autogen/cabal_macros.h -XCPP -XDeriveDataTypeable -XScopedTypeVariables -XMagicHash
+:set -i../../src -i../../dist/build/autogen -i../../dist/build/haddock/haddock-tmp/ -packageghc -optP-include -optP../../dist/build/autogen/cabal_macros.h
-- 
cgit v1.2.3