module Blub where
import qualified Language.Haskell.Exts as HS
import Control.Monad

addSymbol :: HS.ImportDecl -> String -> HS.ImportDecl
addSymbol (id@HS.ImportDecl {HS.importSpecs = specs}) symbolName =
   id {HS.importSpecs = specs & _Just . _2 %~ (++ [HS.IVar $ hsName symbolName])}