Comments.hs

module Haddock.Comments where

import Data.Generics
import Data.Typeable
import SrcLoc

deriving instance Typeable1 Located

next :: (Data a, Typeable b) => SrcSpan -> a -> [Located b]
next span term = locatedTerms term

locatedTerms :: (Data a, Typeable b) => a -> [Located b]
locatedTerms terms = listify (\(L _ _) -> True) terms