Fix operators in import list

pull/83/head
Lennart Spitzner 2017-12-18 18:56:50 +01:00
parent c3b6e17261
commit 8c3a9bec25
3 changed files with 3 additions and 1 deletions

View File

@ -666,6 +666,7 @@ import Test ( T
, T3(..) , T3(..)
, T4(T4) , T4(T4)
, T5(T5, t5) , T5(T5, t5)
, (+)
) )
#test hiding #test hiding

View File

@ -714,6 +714,7 @@ import Test ( T
, T3(..) , T3(..)
, T4(T4) , T4(T4)
, T5(T5, t5) , T5(T5, t5)
, (+)
) )
#test hiding #test hiding

View File

@ -59,7 +59,7 @@ layoutIE lie@(L _ ie) = docWrapNode lie $ case ie of
, docLit . Text.pack . moduleNameString $ unLoc n , docLit . Text.pack . moduleNameString $ unLoc n
] ]
_ -> docEmpty _ -> docEmpty
where ien = docLit $ rdrNameToText $ ieName ie where ien = docLit =<< lrdrNameToTextAnn (ieName <$> lie)
layoutIEList :: [LIE RdrName] -> ToBriDocM BriDocNumbered layoutIEList :: [LIE RdrName] -> ToBriDocM BriDocNumbered
layoutIEList lies = do layoutIEList lies = do