writeBitcodeToFile :: (MonadBaseControl IO m)
                      => IO.FilePath -> ModuleBuilder -> L b m ()
writeBitcodeToFile path builder =
  withModule builder $
  liftBase . errorToIO 'LL.writeBitcodeToFile .
  LL.writeBitcodeToFile (LL.File path)
writeBitcodeToFile :: (MonadBaseControl IO m)
                      => IO.FilePath -> ModuleBuilder -> L b m ()
writeBitcodeToFile path builder =
  withModule builder $
  liftBase . errorToIO 'LL.writeBitcodeToFile .
  LL.writeBitcodeToFile (LL.File path)
writeBitcodeToFile path builder =
  withModule builder $
  liftBase . errorToIO 'LL.writeBitcodeToFile .
  LL.writeBitcodeToFile (LL.File path)