sourceError :: SourceError -> GhcMod (Either String String)
sourceError err = do
    dflags <- G.getSessionDynFlags
    style <- toGhcMod getStyle
    ret <- convert' $ (errBagToStrList dflags style . srcErrorMessages $ err)
    return $ Left ret
sourceError :: SourceError -> GhcMod (Either String String)
sourceError err = do
    dflags <- G.getSessionDynFlags
    style <- toGhcMod getStyle
    ret <- convert' $ (errBagToStrList dflags style . srcErrorMessages $ err)
    return $ Left ret
sourceError err = do
    dflags <- G.getSessionDynFlags
    style <- toGhcMod getStyle
    ret <- convert' $ (errBagToStrList dflags style . srcErrorMessages $ err)
    return $ Left ret