halberd-0.1.1: src/Language/Haskell/Exts/Utils.hs

module Language.Haskell.Exts.Utils where

import Control.Monad
import Language.Haskell.Exts.Annotated

getQualification :: QName a -> Maybe (ModuleName ())
getQualification (Qual _ q _) = Just $ void q
getQualification _            = Nothing