diff options
| author | Alec Theriault <alec.theriault@gmail.com> | 2018-07-07 20:25:35 -0400 |
|---|---|---|
| committer | Alec Theriault <alec.theriault@gmail.com> | 2018-11-06 12:03:24 -0800 |
| commit | 566536d6a1db7959197bed086c07cd23457ca378 (patch) | |
| tree | 6d60dd0c2127886482766a0f1231310d8871bd86 /haddock-api/src/Haddock/InterfaceFile.hs | |
| parent | 82b8f491e18d707f67857bcb170b2147fa275ccc (diff) | |
Support hyperlink labels with inline markup
The parser for pictures hasn't been properly adjusted yet.
Diffstat (limited to 'haddock-api/src/Haddock/InterfaceFile.hs')
| -rw-r--r-- | haddock-api/src/Haddock/InterfaceFile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/InterfaceFile.hs b/haddock-api/src/Haddock/InterfaceFile.hs index 30bd2b9a..8e01a38d 100644 --- a/haddock-api/src/Haddock/InterfaceFile.hs +++ b/haddock-api/src/Haddock/InterfaceFile.hs @@ -434,7 +434,7 @@ instance Binary Example where result <- get bh return (Example expression result) -instance Binary Hyperlink where +instance Binary a => Binary (Hyperlink a) where put_ bh (Hyperlink url label) = do put_ bh url put_ bh label |