writeObjectToFile :: (MonadBaseControl IO m, IsBackendVoid b ~ False)
                     => IO.FilePath -> ModuleBuilder -> L b m ()
writeObjectToFile path builder =
  do tm <- getTargetMachine
     withModule builder $
       liftBase . errorToIO 'LL.writeObjectToFile .
       LL.writeObjectToFile tm (LL.File path)
writeObjectToFile :: (MonadBaseControl IO m, IsBackendVoid b ~ False)
                     => IO.FilePath -> ModuleBuilder -> L b m ()
writeObjectToFile path builder =
  do tm <- getTargetMachine
     withModule builder $
       liftBase . errorToIO 'LL.writeObjectToFile .
       LL.writeObjectToFile tm (LL.File path)
writeObjectToFile path builder =
  do tm <- getTargetMachine
     withModule builder $
       liftBase . errorToIO 'LL.writeObjectToFile .
       LL.writeObjectToFile tm (LL.File path)