mirrors/IHaskell
1
0
Fork 0
mirror of https://github.com/IHaskell/IHaskell.git synced 2025-04-16 11:26:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Support type as item.

Browse Source
This commit is contained in:
Thomas Peiselt 2018-11-01 20:45:32 +01:00
parent c693ce307e
commit 6788944a45
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/IHaskell/Eval/Hoogle.hs
View File

@ -188,6 +188,12 @@ renderSelf string loc
span "hoogle-class" (link loc $ extractNewtype string) ++
packageSub package
| "type" `isPrefixOf` string =
let package = extractPackageName loc
in nwt ++ " " ++
span "hoogle-class" (link loc $ extractType string) ++
packageSub package
| otherwise =
let [name, args] = split "::" string
package = extractPackageName loc
@ -204,6 +210,7 @@ renderSelf string loc
extractClass = strip . replace "class" ""
extractData = strip . replace "data" ""
extractNewtype = strip . replace "newtype" ""
extractType = strip . replace "newtype" ""
pkg = span "hoogle-head" "package"
mdl = span "hoogle-head" "module"
cls = span "hoogle-head" "class"